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Х1 は クル マ に 例え る な ら ば スポ ー ツ ・ カ ー の よう な 魅力 に あふ れ た 
2% ツ コジ で あ . る 。 

第 一 , 外観 が よい . 眺め て いる だ け で も 気持 の いい 美しい デザ イン で 
ある . 

また , 性 能 が よい . 演算 が 速い . 精度 が 高い . さらに, BASIC の 仕様 
は 最高 級 で ある . 

他 機種 に な い オ リ ジ ナ ル な 機能 も 多い . その 筆頭 が テレ ビ 画 像 と の 重 
ね 合わ せ 表 示 で ある . 一 一 じつは 筆者 は その 点 に は あま り 期 待ち も せ ず に 
買っ た の で ある が , 使っ て みる と 意外 に 面白 い . 

た と えば , ナイ ター を 見 な が ら コ ンピュータ ー を 使え る の で ある . シ 
ステ ム ・ テ ー プ の 入力 待ち や 。 プリ ンタ ー の 出力 待ち の 間 , チャ ン ネ ル 
を まわ し て ひま つぶ ざし が で きる 。 

操作 性 も 非常 に 良い これ まで 使い 易 さ で 定評 の あっ た HuBASIC が 
標準 提供 さき れる よう に な っ た か ら で あ る . た だ し 
( 例 ) スナ ミ -- RUN 
の 「 カ ナ 英 字 変 換 ( ? | は 惜しい こと に 削除 され て いる 。. 

MZ-80B 以来 シャ ー プ の 伝統 と な っ て いる カセ ッ ト ・ テ ー プ の 全 自 動 
制御 は 本 機 に も 装備 され , 一 段 と 高速 (2700 ボ ー) に な っ て いる 。 高速 
の 自動 頭 出し (APSS) も 可能 で あり , ディ スク 無し で 十分 実用 に な る (本 
機 の ディ スク は 。 これ また じつに スマ ー ト で すぐ れ た デザ イン な の で 。 
あれ ば ある に 越し た こと は な いけ れ ど ).. 

BASIC に は 珍し い 機 能 が た くさ ん あっ て 楽し い . 筆者 が 面白 いと 
思っ た 命令 や 関数 は 付録 と で 紹介 し て お いた . 


қ 
本 書 の 原稿 は 春休み に 書い た . ふだん は プロ フェ ッ サ ー だ か ら , あま 
り パ ソコ ン に ば か り 熱 中 し て いる わけ に いか な い が 。 春休み は 大 っ ぴら 
に 遊べ る わけ で 。X1 を 心ゆく まで 楽し むこ と が で きた . 

せっ か く 良 い 機械 が で きた の だ か ら , みん な で 楽し く 使 いた い 。 そう 
いう 願い を こめ て 。 この 本 を 書い た . 

みん な で 広げ よう 。 パソ コン の 輸 . 


1983 年 5 月 


1 シス テム の 説明 


1.1 を Ж 


シャ ー プ ХІ の 本 体 CZ-800C は , こん な 形 を し て いる 。. 


シャ ー プ X1 本 体 

この 中 に | 

CPU (中央 処理 装置 ) 

メモ リー( 記 憶 装置 ) 

イン ター フェ ー ス (外部 の 機器 を 接続 する た め の 窓 口 ) 

カセ ッ ト ・ テ ー プ ・ デ ッ キ 

電 源 
が 入っ て いる . 本 機 は キー ボー ド ( 鍵 盤 ) が 本 体 と 別に な っ て いる 。. 


фк азы!» 
інім -) ЕЗІз | 
2221-23-12 


Г 


シャ ー プ X1 の キー ボー ド 


2 1 シス テム の 説明 
1.2 ©РО 


本 機 は Z 80A と いう LSI を CPU と し て 使用 し て いる 。 
Z-80A は 。 シャー プ の М2 シリ ー ズ を は じ め 。 多く の パソ コン で 使わ 
れ て いる 高 性 能 の CPU で ある . 


Z-80A (実物 大 ) 

本 機 で は , これ を クロ ッ ク 周 波数 4 MHz で 使用 し て いる . これ は か な 
り 高速 の 使い 方 で ある . 本 機 は さら に 。 BASIC を 実行 する イン ター プ 
リー ター が 良く で き て いる こと も あっ て 非常 に 速く 。。 8 ビッ ト ・ バ ソコ 
ン の 中 で は 最高 の 部 類 に 属す る . 参考 まで に 二 , 三 の 簡単 な 計算 例 の 所 
要 時 間 を 以下 に 示す . 

1) 1 か ら 1000 ま で の 整数 の 和 を 求め る (加算 1000 回 ). 

約 3 秒 
2) 1 か ら 50 ま で の 整数 の 乗算 表 ( 九 九 の 表 の よう な も の ) を 作る (ЕП 
刷 に 要する 時 間 は 除く . 乗算 2500 回 ). 
ү 全部 の 変数 を 整数 型 と し て 計算 し た 場合 12 秒 
\ 全部 の 変数 を 実数 型 と し て 計算 し た 場合 。 21 秒 
3)* ャ =0" か ら ェ テー89'" ま で 1' 間 隔 の 三角 関数 表 を 作る (sin, сов, tan 
を 各 90 回 計算 ). 
約 5 秒 
4) 30 元 の 連立 1 次 方 程 式 を 解く (乗算 お よび 減算 それ ぞ れ 約 3000 回 
必要 ). 
約 2 分 10 秒 


13 メモ リー( 記 憶 装置 ) 3 
1.3 メモ リー( 記 憶 装 置 ) 


本 機 に は 64 K バイ ト の КАМ が 標準 装備 され て いる . この 内 , 約 41 К 
バイ ト は BASIC イン ター プリ ー タ ー。 モニ ター。 入 出力 制御 プロ グラ ム 
に 使用 きれ る の で 。 ユー ザー が ブロ グラ ム や デー ター の 記憶 に 使用 で き 
る 部 分 (ユー ザー 領域 ) は 約 23 K バイ ト で ある 。. 


これ で 64 KK ビッ トド ト 。 すなわち 
8K バイ ト の 容量 が ある . 


ies --н E 解 М-------------- 
CPU = Central Processing Unit, 中 央 処理 装置 , コン ピュ ー タ ー の 中 
枢 部 分 で , 演算 機構 お よび 制御 機構 (プロ グラ ム を 解読 し て 実行 する た 
め の し くみ ) を 含む . 
LSI = Large Scale Integration。 大 規模 集積 回 路 
MHz ニー メガ ・ ヘ ルツ , 毎秒 百 万 周期 
RAM = Random Access Memory, 自由 に 読み 書き で きる メモ リー( 要 
する に 普通 の メモ リー の こと )、. 
КОМ = Read Only Memory, 読み 出し 専用 いい か えれ ば , 内 容 を 書 
きか える こと の で き な い メモ リー。 
ビッ ト (bit = binary digit) 2 進 法 の 1 桁 
バイ ト (byte) コン ピュ ー タ ー の 内 部 で デー ター を 扱う 際 の 基本 的 な 処 
理 単位 で 。 8 ビット (2 進 法 の 8 桁 ) か ら 成り , 本 機 の 場合 

文字 デー ター の 場合 。 1 バイ ト が 1 文字 を 表す 。 

数 値 デ ー タ ー の 場合 。 5 バイ ト で 一 つの デー ター を 表す . 
KB は キロ バイ ト (= 1000 バ イト =200 ワ ー ド ). MB は メガ バイ ト (= 
百 万 バイ ト )。. 


4 1 シス テム の 説明 
1.4 ディ スプ レイ 


パソ コン の 操作 を し た り 計 算 結果 を 見 た りす る に は , ディ スプ レイ 装 
置 (モニ ター と も いう ) が 必要 で ある . 最低 限 , 本 体 と ディ スプ レイ 装 
置 が あれ ば , パソ コン と し て 使う こと が で きる . 


本 体 の 上 に 乗せ た CZ-800D 
本 機 に 最も 適し た ディ スプ レイ 装置 は 。 シャ ー プ の CZ-800D で ある 
(写真 上 ). これ は 次 の よう な 特長 が ある . 
本 機 の 出力 用 と し て も テレ ビ と し て も 使用 で きる 
本 機 の 出力 を テレ ビ 画 面 と 同時 に (重ね 合わ せ て ) 表示 で きる 
き 


本 機 で チ テレビ の チャ ン ネ ル 。 音量 等 を コン トロ ー ル で 
画面 は 精細 , 色 も 鮮 か で 美しい 
外観 , 寸法 と も に 本 機 に 合わ せ て ある 
本 機 を 。 いわ ゆる 「 パ ソコ ン ・ テ レビ 」 と し て 使う に は 。 これ を 用 いる 
必要 が ある . 

し か し 上 記 の 諸点 に こだわ ら な けれ ば , マイ コン ・ シ ョ ッ プ の 店 頭 に 
並ん で いる 各種 の ディ スプ レイ 装置 (モノ クロ また は КСВ 分 離 方 式 の 
み カラ ー<・ デ ィ ス デビ ジイ ) を 使用 で きる 。 ま た RE コン ペー ター を 介し で 家 
庭 用 テレ ビ に 接続 し て も よい . 


る 


15 йу у = 5 
1-8 ука = 


パソ コン の 出力 ( 計 結 果 な ど ) を ディ スプ レイ に 表示 する だ け で 用 の 済 
むこ と も ある が , 紙 に 印字 し た い 場 合 も 少な く な いで あろ う . その た め 
の プリ ンタ ー を 付け る こと が で きる 。 

本 機 の た め の プ リン ター と し て は , シャ ー プ か ら 専 用 機 CZ-800P が 
発売 され て いる . 


CZ-800P 

これ を 用 いれ ば , 画面 コピ ー 等 が 自由 に で き て 便利 で ある . 

本 機 の プリ ンタ ー・ イ ンタ ー フ ェ ー ス は 。 いわゆる セン トロ ニク ス 仕 
様 準 処 と いう 方 式 ( 他 の 大 部 分 の パソ コン と 同じ ) な の で CZ-800P 以外 
の プリ ンタ ー を つない で も 動く は ず で ある が , 本 機 は プリ ンタ ー 接 続 用 
の コネ クタ ー が 標準 の も ちの と 異な り , 特殊 な 小型 コネ クタ ー を 用 いて い 
る の で , 接続 用 ケー ブル を 自作 (また は マイ コン ・ シ ョ ッ プ に 頼ん で 作っ 
て も ら う ) す る 必要 が ある . 

[CZ-800P の 仕様 ] 

印字 速度 95 字 / 秒 (非常 に 速い ) 

1 行 の 字数 80 字 (標準 ) 96 字 (縮小 文字 の 場合 ) 
[イン ター フェ ー ス ] 本 機 は プリ ンタ ー・ イ ンタ ー フ ェ ー ス を 内 蔵 ( 標 
準 装 備 ) し て いる . ケー ブル は プリ ンタ ー に 付い て いく る 。 
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1.6 カセ ッ ト ・ テ ー プ 


本 機 は カセ ッ ト ・ テ ー プ の 記録 。 再生 装置 を 内 蔵 し て いる 。 これ は 全 
自動 (BASIC の プロ グラ ム て 起動 。 停止 は も ちろ ん の こと , 早送り や 巻 
き 戻 し も 可能 )。 高速 (2700 ボ ー) T, 信頼 性 も 高い . 

テー プ テー プ は 普通 の 音楽 用 カセ ッ ト ・ テ ー プ で も よい が , 最近 
は バ パソ コン 用 の カセ ッ ト ・ テ ー プ を 容易 に 入手 で きる よう に な っ た の で 。 
な る べく それ を 使う 方 が よい (シャ ー プ , ソニ ー, マク セル 等 の 製品 が 
あり 。,「 コ ンピュータ ー 用 」 と いっ て も 値段 は 高く な い )、 プロ グラ ム の 
保存 用 に は C-10 (片面 5 分, 両面 10 分 ) で 十分 で ある . 


17 ж の 他 

以上 の ほか , 
アロ みみ ピー ディ スウ (5 ネジ チ ※ ら み ) CZ-800F 
デジ タル ・ テ ロッ パー CZ-8DT 
ジョ イス ティ ッ ク ( 2 個 ) 
外部 RAM* 
漢字 ROM* 


な ど を 接続 する こと が で きる 。 


ж 拡張 I/O ボー ト 経 由 


2 в ж 


2.1 電 源 投 入 


本 体 お よび 本 機 専用 ディ スプ レイ (CZ-800D) は 。 テ レビ の 自動 オン ・ 
オフ を 行なう 関係 上 , 電源 が 

主 電源 スイ ッ チ ーー 普通 , 入れ っ ぱな し に し て お く 

常用 電源 スイ ッ チ 一 一 使用 する と きだ け 入 れる 
の 二 段 式 に な っ て いる . 主 電源 を 入れ て お か な いと タイ マー が 正常 に 働 
か な い . 

本 体 の 主 電源 スイ ッ チ は 後面 ( 後 か ら 見 て 左端) 

本 体 の 常用 電源 スイ ッ チ は 前 面 右上 

CZ-800D の 主 電源 スイ ッ チ は 前 面 左下 の ふた の 中 

CZ-800D の 常用 電源 スイ ッ チ は 前 面 右 下 
に ある . 


常用 電源 スイ ッ チ 
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2 2 BASIC の 起動 


2225, BASIC の シス テム ・ テ ー プ CZ-8 СВО (本 体 の 付属 品 と し て 付 
いて くる ) を セッ ト し 。 ふ た を し め る と 。 約 2 分 半 後 に 


SHRRP- HuBRSIC CZ-8CB01 V1.0 
Coepeyright (C) 1982 by SHRRP ン Hudd=o ロ 


23536 Bytes free 
ок 
と いう メッ セー ジ が 出 て BASIC を 使用 で きる 状態 に な る 。 
シス テム ・ テ ー プ は 直ちに 自動 的 に 巻き 戻さ れる の で 。 それ が 止ま っ 
た ら | 選 了 選 CT| ボ タン を 押し て 取り 出し て お く . 


BASIC の シス テム ・ テ ー プ 

[備考 ] 電源 を 入れ た と き , 既に カセ ッ ト ・ テ ー プ が 入っ て いれ ば 。 直 
ち に その テー プ の 読み 込み が 始ま る . し た が っ て , あら か じ め BASIC の 
シス テム ・ テ ー プ を 入れ て お け ば 。 自動 的 に 読み 込ま れ , BASIC を 使用 
で きる 状態 に な る . ただし, 本 機 の カセ ッ ト ・ テ ー プ ジ 関係 の メカ ニズム 
は 電磁 制御 に な っ て いる の で , 電源 を 入れ る 前 に [EJECT] iy > аф 
し て も , ふた は あか な いわ け で 。 いま 述べ た よう な 全 自 動 ス ター ト を や 
り た けれ ば , 前 回 の 実行 時 の 最後 に シス テム ・ テ ー プ を 入れ て お く 必 要 
が ある . 


23 カセ ッ ト ・ テ ー プ か ら の 読み 込み 9 
2.3 カセ ッ ト ・ テ ー プ か ら の 読み 込み 


新しい プロ グラ ム を キー ボー ド か ら 入 れる 方 法 は , 次 節 か ら 詳 し く 説 
明 す る が , と りあ え ず 既存 の プロ グラ ム (友人 の 作品 。 市 販 の ゲー ム , 
本 体 の 附属 品 と し て 入っ て いる デモ ンス トレ ーション 用 プロ グラ ム 等 ) 
を 読ま せ て 実行 し て みよ うと いう の で あれ ば ,。 次 の よう に すれ ば よい . 


1) | 思 JEBOCT | ボタ ン を 押す と ふた が あく . 
2) テー プ を 入れ て 。 ふた も を しめる, 
3) 巻き 戻す *. 巻 戻し ボタ ン は キー ボー ド の 右上 に ある . 


seal =ч 
44 >» 


巻 戻し 停止 早送り 
読み 込み 開始 を 指令 する . それ に は , キー ボー ド か ら 
LOAD "プロ グラ ム の 名 前 " [=] 


と 入れ る の が 正式 で ある が 。 略し て 単に 


LOAD |.) 
と し て も よく (その 場合 , 最初 に 見 つか っ た プロ グラ ム が 読み 込ま れ 
2), ある い は , [SHIFT| キ ー を 押し な が ら フ ァ ン クシ ョ ン ・ キ ー 
(キー ボー ド の 左上 段 に ある ) [| 耳 1| を 押し て も よい . 
5) まち が っ た テー プ を か け て し まっ て , 読み 込み の 途中 で 中 止 し 


た い 場 合 は , [8S 了 LI エ F 直 | キー を 押し な が ら [BREAK| キ ー を 押す (停止 
ボタ ン で 止め て も よい が , それ だ と テー プ は 止ま っ て も BASIC の 「 読 
み 込 み 状 態 」 は 解除 され な い ). 


ж 要するに, 入力 し た い プ ログ ラム が , テー プ の 「 こ れ か ら 読 む 部 分 」 に 
入っ て いれ ば よい . な お 本 機 で は 。 前 方 , 後方 ( 各 1 フロ グラ ム 分 ) の 「 自 動 
頭 出 し 」 が 可能 で ある . それ に は 。 |8HIRFT| キ ー を 押し な が ら , 前 方 な ら 
[pp|, 後方 な ら 「44| キー を 押せ ば よい . 


= 
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2.4 キー ボード 


キー ボー ド (鍵盤 ) に は 

文字 入力 用 の キー 

数 字 入 力 用 の テン ・ キ ー 

操作 用 の キー 
が 並ん で いる . 
[大 文字 の 入力 ] BASIC の プロ グラ ム を 入力 する と き は ,。 左下 に あ 
る |CAPS LOOKI(capital letters、。 す な わ ち 大 文字 の 状態 に ロッ ク 
ー 一 固定 する , と いう 意味 ) と いう キー を 押し 下げ て お く と よい .。 その 
よう に する と , キー の 頭 に 大 きく 刻印 され て いる 文字 (下図 参照 ) が 入 
力 さ れる . 


ロロ ロロ ロロ ロロ ロロ a 
RI 回 回 回 回 回 回 回 思 較 
ЕЗЕЛРУЕЛІСЛЕЗ ЕЗ ЕЗІЗ ЕЕЕ 
(2)(х)[с)[У)[в)[ы)м)[ ЕН РА Ей 


23 -- ス 


[小文字 と 記号 の 入力 ] [SHIFT| キ ー を 同時 に 押す と 次 の よう な 文字 
が 入力 され る . 


Ce БӨ ЕЗ EO 

ロロ ロロ ロロ ロロ ロロ 5 
ロロ ロロ ロロ ロロ ロロ 

RODO ты 


ス Ñ = ス 
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[カナ | と いう キー を 押し て お く と (ロッ ク さ れる ) 次 の よう に な る . 


ЕЕЕ ЕЛ ЕЗ ЕЗ ЕЗЕЗ| ЕЗ БЕЗ ЕЗ БӨ 
ШЕЕ ЕЗ ЕЛЕ ЕЗ ЕЗ ЕЗ/ЕЗ БЕЗЕ 
100600600060 

ЕЕЕ ГЭ ЕЛЕ ЕЗЕЗ ЕЗ СЗ 


(> < - ぇ Т; 

カナ 文字 入力 の 状態 で きら に [SHIFT| キ ー も 押す と 次 の よう に な る . 
20023890000 
шшш шшш шшш шшш 
шшш ш шшш шт 


шшш 
mLLIULLLLEIUms 
し た < - аю 


[GRAPH| と いう キー と 同時 に 押す と 次 の よう な グラ フィ ッ ク ・ シ ン ボ 
ル が 入力 され る . 
ЕЗЕЗЕЗЕЗІЗІДІЕНСЛЕЛІІГІГШЕЗ 
(ө/С)/9/м/%/ EOD ғ) 
nn na РЗ ЕЗ 
== =н ЛЕТ 
анасына 


テン ・ キ ー の 配列 は 次 の よう に な っ て いる 。 
( 左 は 普通 の 場合 , 右 は IGRAPH| キ ー を 押し た 場合 ) 


a (ШЕН) 
回 回 回 自 ШЕ 
tal SOD 


2% F 法 
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ОЕ? OE 
МЕНЕЕ Ст ЕК | 
СОЄ) Gs СЕЕ 

ШЕН ЕЈС ЈС RE Tao 

[= )[9 )С С) СӘС г С Е УЫ МД ы#їт+ 

aoan тт Ж БЫ кк 
ДЕ E T - 
га ее аа 90 М5 80 асы 
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2.5 画面 操 作 


画面 消去 "|SHTFTm キ ー を 押し な が ら |OLR ン HOME| と いう 


キー (テン ・ キ ー の 左上 に ある ) を 押す と , 画面 に 表示 され て いる 文 
字 は 全部 消え て 。 カー ソル は 左上 隅 に 移る . 
図形 (グラ フィ ッ ク 出 力 ) は , 上 記 の 操作 で は 消え な い . 図形 を 消 
し た いと き は ,。 キー ボー ド か ら 次 の よう に 指令 する . 
оза о [a] 


[備考 ] CLR は clear (クリ アー), COLS は clear screen (画面 クリ 
アー) の 意味 で ある . 


1 行 の 字数 の 指定 電源 を 入れ た 直後 に は , 1 行 に 40 字 を 表示 す 
る 状態 に な っ て いる が , 


WIDTH во |7 


1 

と 指令 すれ ば , 1 行 に 80 字 の 表示 を する こと が で きる . これ を また 40 

字 / 行 に 戻す に は 
WIDTH 40 || 


と すれ ば よい . な お , 画面 の 行 数 は 25 行 で 。 これ は 変更 で き な い . 
色 の 指定 カラ ー・ デ ィ ス プレ イ を 使用 し て いる の で あれ ば , 気 
分 転換 の た め (? ) に 文字 の 色 や 背景 の 色 を 変え る こと が で きる . 
COLOR 文字 の 色 ,。 背景 の 色 
で 指定 する . 色 は 下記 の 色 番 号 で 表す . 
0 1 2 3 4 5 6 
н ия 赤 ж в 水色 黄 
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2.6 プロ グラ ム の 入力 


NEW 新規 に プロ グラ ム を 入力 する と き に は 。 まず 


МЕМ | 
を 入れ る . 


[解説 | これ は 「 新 し い プ ログ ラム を 入れ ます よ 」 と いう 。 パソ コン に 
対す る 意思 表示 で ある . これ を 入れ る と 。 パソ コン は ,。 それ まで 入っ て 
いた プロ グラ ム (た と えば 。 前 に 使っ た 人 が 残し て いっ た も の ) を 消し 
T, 新規 入力 の た め の 準 備 を 行なう . た だ し , 電源 を 入れ て 最初 に 使う 
と き は ,。 NEW を 入れ な く て も よい ,. 


基本 的 な 入力 方 法 、 BASIC の プロ グラ ム や デー ター は , 行 単位 


に 入力 する .。 各行 の 終り に は , 必ず [| キー を 押す . 


( 例 ) 10 А=2 [<] この プロ グラ ム の 意味 
は 3.2 節 で 説明 する . し か 
20 B=3 [| 
L, LOERT, 左記 の と 
50 C=A+B[-] お り に 入力 し て みる と よ 
40 PRINT Cl い . 2+3 の 値 5 が 表示 され 
で あろ う . 


ント ルコ ニス コー エバ ココ 
記憶 装置 に 格納 され , あと で RUR (実行 せよ ) と いう 指令 が 出 た と き ( 原 
則 と し て 行 番 号 の 順に ) 実行 され る . | | 

ポン エミ EIET 
Sn E ыа Бык осии, ДОНЕСЕ 
БЕЛЕС» 


プロ グラ ム と し て 記憶 きれ る 。 


直ちに 実行 され る . 
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2.7 実行 の 開始 , 停止, 再開 


開 始 プロ グラ ム の 実行 を 開始 する に は ,。 キー ボー ド か ら 


RUN [1] また は в. [1] また は [F5] 
を 入れ れ ば よい . 


RUN 開始 行 番号 | | と いう 使い 方 も で きる . 


Шо: ~ プ ログ ラム の 実行 を 止め る に は , |[8НІРТ|+ 


な が ら 「BR 包 AKI キー を 押せ ば よい . 


他社 の パソ コン だ と , た いて い |BAEAK| キ ー ま た は [STOP| キ ー を 


押せ ば 止ま る が 。 シャ ー プ の パソ コン は [SHIRT| キ ー を いっ し ょ に 押 


さき な いと 止ま ら な い (MZ シリ ー ズ に 共通 )、 う っ か りさ わっ た た だ ため に 止 
まっ て し まう の を 防止 する た め と 思わ れる . 


再 開 実行 を 再開 する に は 次 の よう に する . 
сӧнт ja] また は с. [1] 


CONT は continue (続け る , の 命令 形 ) の 意味 で ある . 


標準 状態 に も どす 図形 表示 関係 の プロ グラ ム や 操作 法 に 誤り が 
ある と 。 カー ソル が 出 な く な っ た り ,、 点滅 が 止ま ら な く な っ た り し て 
困る こと が ある (これ は [|SHIFT|+[|BREAK| で は 解決 され な い ). 
そう いう 場合 , 


[CTRL]+ [D] 


すなわち OTR エ L| キ ー を 押し な が ら |D| の キー を 押せ ば 標準 状態 に も 
どり , 制御 機能 を 回 復 す る こと が で きる . 


これ は 本 機 独特 の 便利 な 機能 で ある . 
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2.8 行 番号 の 自動 生成 


BASIC の プロ グラ ム を 入力 する 際 に は 各行 に 行 番号 を 付け な けれ ば 
な ら な い . それ を いち いち キー ボー ド か ら 入 れる の は 手間 が か か る の で 
自動 的 に 行 番号 を 付け る 機能 が 用 意 き れ て いる . それ に は AUTO と い 
う コ マン ド (コン ビュー ター に 対す る 指令 ) を 用 いれ ば よい . 


AUTO 1) 最も 簡単 な 形 
AUTO 1] また は [F1] 
この よう に 指令 する と 。 
10, 20, 50, 40. 50, 
と いう よう に , 10 か ら 始 まる 10 間 隔 の 番号 が 生成 され る . 
2 ) 最初 の 番号 を 指定 する に は 
AUTO 最初 の 行 番号 | | 


と すれ ば よい . 
( 例 ) АТО 800 
3) 間隔 も 指定 する に は 

AUTO 最初 の 行 番号 , 間隔 | 


と する . 間隔 は 正 の 整数 で な けれ ば いけ な い . 
( 例 ) AUTO 500,1 


[使用 法 ] AUTO を 指令 する と , 画面 の 左端 に 行 番号 が 表示 され る か 
5, その 右 に 文 を キー ボー ド か ら 入 れ て |。』 引 | キー を 押せ ば よい . 

[重複 防止 ] 自動 生成 し た 番号 が , 既に 使わ れ て いる (既に 入力 し た プ 
ログ ラム と 重複 する ) 場合 に は , 現在 の 内 容 が 表示 され る か ら , そこ で 
AUTO を 解除 すれ ば よい . 


AUTO を 解除 する 方 法 自動 番号 付け を 止め る に は [|「SHIFT 


キー を 押し な が ら |BREAK| キ ー を 押す . 
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2.9 プロ グラ ム の 清書 と 番号 整理 


LIST や "プロ グラ ム を 入れ 終っ た ら 
LIST | | また は 1. [| また は [ға] 


に よっ て 。 いま 入力 し た プロ グラ ム を 表示 させ ,。 正しく 入力 され て い 
る か どう か を 調べ て みる と よい . 
プリ ンタ ー に 出力 し た いり 場合 は 。 LLIST |: と する . 


[表示 の 中 断 ] 長い プロ グラ ム で 1 画面 に 表示 で き な い 場合 ,、 スク ロー 
ル と いっ て ,。 表示 内 容 を 1 行 ず つ 上 に ずら し て , 一 番 下 の 行 を あけ て , 
そこ に 新しい 行 を 表示 する . その た め 。 画面 の 上 の 方 に 表示 され て いる 
行 は 。 上 か ら 1 行 ず つ 画 面 の 外 に 追い 出さ れ て し まう .。 し た が っ て 。 途 
中 で 停止 さき せな いと , ゆっ くり 画面 を 見 る こと が で き な い . LTST を 中 
断 す る に は |BREAK| キ ー を 押せ ば よい . (本 機 で は この 目的 に [8Ql 
キー を 使う こと は で き な い .) 

[表示 の 再開 ] 表示 を 中 断 し た あと , 続き を 見 る た め に 表示 を 再開 する 
сіз, スペ ー ス ・ バ ー を 押す . 


RENUM 挿入 や 削除 に よっ て 不 等 間 隔 に な っ た 行 番号 を 
RENUM | | また は  REN.[:'] 

に よっ て , きれ い に 付け 直す こと が で きる 。. 後述 の GOTO 文 な どの 行 

ж, それ に 合わ せ て 自動 的 に 修正 され る . 


RENUM 最初 の 番号 [a] 
に よっ て , 付け 直し た あと の 番号 の 出発 値 を 指定 する こと も で きる . 
RENUN 新 行 番号 , 昌行 番号 , 間隔 
と いう 形式 で 指定 すれ ば , 「 旧 行 番号 」 か ら 先 の 部 分 だ け を , 新 行 番号 
か ら 始 まる 指定 間隔 の 番号 に 付け 替え る こと が で きる 。. 
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2.10 誤 字 F Е 


プロ グラ ム の 入力 中 に 誤り に 気付 いた と き は 。 次 の よう に し て 誤り を 
訂正 する こと が で きる 。 


1 ) 行 の 途中 (|:』 引 | キー を 押す 前 ) で 誤り に 気付 いた 場合 は 。 カー ソ 


ル を 誤り の 所 まで も ど し て 正しい 文字 に 直せ ば よい . 


( 例 ) 10 А=1 を 誤っ て , 10 А-1 と 入力 し ,[ 紀 | を 押す 前 に 気 
付い た 場合 , 一 | キー を 2 回 押し て , カー ソル を 一 の 位置 に 合わ せ , = の 
キー を 押せ ば 

10 А=1 
に な る か ら , そこ で [| キー を 押せ ば よい [a] を 押す と き , カー ソル 
は , この 行 の 中 の どの 位置 に あっ て も よい )。 


2) | 中 | キー を 押し た あと で も , まだ 誤り の 箇所 が 画面 に 表示 され 


て いれ ば 。 カー ソル を そこ に も ど し て 正しい 文字 に 直し | 中 | キー を 押 
т. 


(ЙІ) 10 8-2 

20 В=5 

50 С=А+В 

20 ( 置 印 は カー ソル ) 
まで 入力 し た 時 点 で , RIOTO [S] は 「A」 の 誤り 。 と いう こと に 
気が付い た と き は , | 1 | を 3 回 押せ ば 

10 8=2 
に な る か ら , ここ で [Al を 押し , |:』| キー を 押し , [1] と に | で 先ほど の 位 
置 ま で カー ソル を も ど し て , 続き の 部 分 を 入力 すれ ば よい . 


[注意 ] AUTO で 自動 的 に 行 番号 を 付け て いる 場合 は 。 [SHIFT]+ 


[BREAK]: } 0 AUTO を 解除 し て か ら 上 記 の 操作 を 行う こと . 


誤り の 箇所 が 画面 上 に な いと き は 。 
EDIT 訂正 し た い 行 の 番号 | 


に よっ て 。 誤り の 部 分 を 画面 に 表示 し , そこ に カー ソル を 合わ せ て 訂 
ж [2] キー を 押す . 


[備考 ] EEDTm の か わり に LTST を 用 いて も よい . 
( 例 ) 行 番号 30 を 誤っ て 
50 С-А:В 
と 入力 し て いた こと に , あと て 気付 いた 場合 は 。 
LIST 30 [1] 
と 入れ る と , 画面 に 表示 され る か ら , カー ソル を : の 位置 に 合わ せ て 修 
正す る . 


カー ソル カー ソル (cursor) と は 画面 上 で 現在 の 入力 可能 な 位 
置 を 指し て いる 印 の こと . 点滅 し て いる . 

カー ソル の 動か し 方 テン ・ キ ー の 下方 に カー ソル を 移動 する た 
め の キ ー が あり , 移動 方 向 が 失 印 で 示さ れ て いる . 


訂正 し な いで よい も の 後述 の 文字 定数 な どの 特殊 な 場合 以外 は 
スペ ー ス の 入れ 過ぎ 。 入れ 忘れ 
大 文字 と 小文字 の 混同 

は 無害 で ある か ら 訂 正 し な いで も よい . 


[注意 ] 画面 上 で 訂正 を 行なっ た あと , 必ず | 中 を 押す こと . 是 中 キー 


を 押さ な いと , 画面 上 で は 直っ て いて も , メモ リー の 内 容 は 訂正 され 


な い . 
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2.11 ж 入 


文字 の 挿入 画面 に 表示 され て いる 行 の 一 部 に 文字 を 挿入 する に 


は 。 次 の よう だ する 。 
1 ) 挿入 し た い 位 置 に カー ソル を 合わ せる . 


2) [SHIFT| キ ー を 挿し な が ら [INS ノ DEL|* キー を 挿入 し た 
い 文 字 の 数 だ け 押 す . 
3 ) 挿入 し た い 文 字 の キー を 押す . 


( 例 ) 画面 の 表示 が 
50 СА+В 
と な っ て いて , 〇 と A の 間 に = 記 号 を 挿入 し た い 場 合 . A の 所 に カー ソ 
ル を 合わ せ て 
50 СА+В ( 著 印 は カー ソル ) 
と し て , [SHIFT| キ ー を 押し な が ら [INS/ ノ DEL| キ ー を 1 回 押す と, 
50 С А-В 
に な る か ら ,。 の キ ー を 押し , [a] を 押す . 
[ 別 の 方 法 ] FM-8 や PC-8801 と 同じ よう な 「 挿 入 モ ー ド 」 方 式 に よる 


修正 も 可能 で ある (23 ペ ー ジ [OTRL|+|A| 参照). 


行 の 挿入 BASIC の プロ グラ ム は 各行 に 行 番号 が 付い て いる 。 


新しい 行 を 挿入 する 必要 が 起こ っ た ら 。 既存 の 行 の 中 間 の 行 番号 を 付 
け て 入力 すれ ば よい . 


( 例 ) 行 10 と 行 20 の 間 に B=3 を 挿入 し た い 場 合 , 10 と 20 の 間 の 適当 な 
数 (た と えば 15) を 行 番号 と し て 
15 B=3 


と すれ ば よい 。 


ж 。 TNS は insert (挿入 )。 DEL ІЗ delete (削除 ) DW. 
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2.12 в 除 


ВІ В 入力 し た 文字 を 削除 する に は , 普通 。 次 の よう に する 。 
削除 すべ き 位 置 よ り 1 字 右 に カー ソル を 合わ せる 


[INS/DEL キー を 押す 


( 例 ) まち が えて 
50 РОКІМТ С 


と 入力 し , 文字 U を 削除 し た 場合 ,、 そ の 1 文字 右 の 位置 だ か ら 選 の 所 に カー ソ 
ル を 合わ せ て 


50 PURINT С 
と し , [INS ノ DEL| キ ー を 押せ ば 
50 PRINT С 


と な る (削除 の 場合 の カー ソル は 「 左 向き に 移動 する 文字 列 の 先頭 車 ]」 と いう 
つも り で 用 いる と よい )。 


行 の 削除 削除 し た い 行 の 行 番号 に 続け て |.!| キ ー を 押す . 


( 例 ) 行 100 を 消す に は 次 の よう に する . 


100 
何 行 も 続け て 消し た い 場 合 は DBTL 選 T 包 を 用 いる と よい . 削除 すべ 
き 範 囲 は 次 の よう に 指示 する . 
DELETE 先頭 の 行 番号 一 最後 の 行 番号 
まだ は 
DELETE 先頭 の 行 番号 , 最後 の 行 番号 
( 例 ) DELETE 50-80 
指定 番号 か ら 先 を 全部 消し た いと き は 
DELETE 先頭 の 行 番号 一 
指定 番号 まで を 全部 消し た いと き は 
DELETE 一 最後 の 行 番号 
と する . @0 DELETE р. で 代用 で きる . 
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初心 者 は ここ 
2.13 コン トロ ー ル ・ キ ー | 

を ば し て よい 。 
コン トロ ー ル ・ キ ー キー ボー ド に は |CTRL| と いう キー が ある . 


これ は コン トロ ー ル ・ キ ー と いっ て 。 単独 に 押し た の で は 何 の 効 果 も な 
OD, これ を 文字 の キー と 同時 に 押す こと に より , 下記 の よう な 各種 の 
画面 操作 を 行なう こと が で きる . 


[CTRL+E] 右側 消去 現在 の カー ソル 位置 か ら , そ の 行 の 右 
іш (文法 上 の 1 行 が 画面 上 で 二 つ 以 上 の 行 に 分 割 し て 表示 され て いる 
合 は 文法 上 の 行 の 終り ) まで を 消去 . 
стві+ 2 下 側 消去 現在 の カー ソル 位置 より 下 の 行 を 全 
部 消去 
сткі|+ м 上 向き 行 あ け 現在 の カー ソル 位置 より 上 の 部 
分 を 上 向き に スク ロー ル し て 行 の すき ま を 作る ( 行 の 挿入 用 ). 
(CTRL +0] 下向き 行 あ け 現在 の カー ソル 位置 より 下 の 部 
分 を 下向き に スク ロー ル し て 行 の すき ま を 作る ( 行 の 挿入 用 ). 
cTRL|+ J 行 の 分 割 現在 の カー ソル 位置 の 直前 で 行 を 二 
つ に 分 ける . た と えば [< 引 を 入れ 忘れ て 
50 А-В 60 PRINT С 
と 入力 し て し まっ た 場合 , 6 の 所 に カー ソル を 合わ せ て |OmRL| と 
| け | を 押せ ば 
50 А-В 
60 PRINT С 
と な り , zota], 4150, 行 66 と も に 上 の 形 に 修正 され る . 


[CTRL + м тойы 現在 カー ソル が ある 行 と その 次 の 行 
を つない で 一 つの 行 に する . た だ し 余分 な 空 折 を つめ て くる る わけ で 
は な い の で 。 画面 は 変化 し な い . ROT] に 行 番号 が 付い て いる 場 


б, 警告 の た め に # 印 が 付く . 
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[CTRL]+[A) 挿入 モー ド の 開始 , 終了 ([Ти5/рЕ+—1: 
よる 挿入 は , 字数 が 少な いと き は べつ に 問題 な い が 。 字数 が 多い 場合 
に は , いち いち 字数 を 数 える の が めん どう で ある . そう いう 場合 , 挿 
入 し た い 位 置 の すぐ 右 に カー ソル を 置い て [OmRL|+ [А] と する と , 
画面 は 変ら な い が 「 挿 入 モ ー ド 」 に な り , 挿入 し た い 文 字 の キー を 押 
す と , その 字数 分 だ け 自 動 的 に すき ま が 作 られ て (カー ソル 位置 か ら 
右 の 部 分 が 右 に 移動 し) キーボード か ら 入 れ た 文字 が 挿入 きれ る . 
( 例 ) 画面 の 表示 が 

50 СА+В 
と な っ て いて 。 C と A の 間 に = 記 号 を 挿入 し た い 場 合 。 A の 所 に カー 


ソル を 合わ せ て [OTR エ L|+ |A| を 押し , = を 入れ れ ば よい . 

[解除 方 法 ] 挿入 モー ド か ら 抜 け 出す に は 。 再度 [CmRL|+ [А] と す 
れ ば よい . жы, それ を し な く て も , カー ソル 移動 キー また は [| : 引 キー 
を 押せ ば 解除 され る . 


[CTRL]+|F] 1 語 スキ ッ プ 次 の 単語 * の 先頭 位置 に カー ソル 


を 進め る . 
( 例 ) 50 MENSEKI=TEIHEN*TAKASA/2 

50 МЕМЅЕКІ=ТЕІНЕМЖТАКАЗА/ 2 

50 МЕМБЕКІ-ФТЕІНЕМжТАКАБА/2 

50 МЕМЅЕКІ=ТЕІНЕМЖТАКАСЅА/ 2 

50 МЕМЗЕКІ=ТЕІНЕМЖТАКАЗЅА/ 2 

[CTRL]+|B] 1 語 バ ッ ク 今 の 単語 * の 先頭 位置 まで カー ソル 

を も どす . た だ し カー ソル の 現在 位置 が 単語 の 先端 に ある と き は 。 一 
つ 前 の 単語 の 先頭 位置 に 移る . 


ж 。 ここ で 単語 と いう の は 英 数 字 の 列 。 い いか えれ ば 「 記 号 ま た は 空白 の 直 
後 か ら , 記号 また は 空白 の 直前 まで 」 ОСЕ, 
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初心 者 は ここ を 
2.14 TAB 機 能 と ば し て よい 。 
タイ プラ イタ ー に ITmAB| と いう キー が ある . tabulate すなわち 作 表 の 

た め の 機 能 で 。、 この キー を 押す と 。 あら か じ め 指 定 し て あっ た 文字 位置 

まで スキ ッ プ する の で , 各行 の 項目 の 頭 を そろ える の に 便利 で ある 。 本 

機 に ち も ち それと 同じ 機能 が あり , キー ボー ド の 左端 に ある |HTAB ド と い 

う キ ー を 押す と , カー ソル は 現在 位置 の 次 ( 右 ) の mAB 位 置 に 移動 する . 


特に 指定 し な けれ ば , AB 位置 は 左端 を 起点 と し て 8 字 間 隔 に 設 


定 さ きれ て いる 。 


( 例 ) 一 画面 左端 
12545678125456781254567812 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 


HTAB| | |НТАВ|—• [HTAB | 


自分 の 好き な 位置 に 「TAB の 行先 」 を 設定 し た り 解 除 し た りす る に 
11, その 位置 に カー ソル を 置い て ,。 次 の よう に すれ ば よい . 


設定 の 場合 「CTRL|+ т. 


解除 の 場合 |CTRL| 二 |Y| 


( 例 ) BASIC の プロ グラ ム は 普通 は 左 に つめ て 入力 する が , 本 書 の プロ 
グラ ム 例 (た と えば 74 ペ ー ジ 参照 ) の よう に 段落 を 付け て お く と 見 易く , 
誤り も 少な く な っ て よい . こ の よう な 段落 を 付け る の に , い ちい ち ス ペー 
ス ・ バ ー を 押す の で は 大 変 だ か ら , 

「 一 行 の 左端 

PE Жал Жол Ж, ‚Ж 


の * 印 の 所 に TAB を セッ ト し て お いて , |HTAB| を 用 いる と よい . 


ж HTAB は horizontal ТАВ の 略 . 
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2.15 ファ ンク ショ ン ・ キ ー 


キー ボー ド の 左上 段 に 
үт Е2 ЕЗ кї FS 


[Б] ШЕШ (КЕШЕ КӨШ 

と いう キー が 並ん で いる 。 これ は ファ ンク ショ ン ・ キ ー と いっ て 。 
簡易 操作 用 
割り 込み 用 


の 二 つ の 使い 途 が ある . この 内 。 簡易 操作 用 と し て は 。 次 の よう な 機能 
を も つ *. 
行 番号 自動 生成 (AUTO |21] と 同じ ) 
現在 時 刻 を 表示 (7ТІМЕ$ [2] と 同じ ) 
KEY** 
画面 の 下 側 を 消し て プロ グラ ム を 表示 
実行 開始 (RUN | コ | と 同じ ) 


[SHIFT]+[F1] プロ グラ ム の 読み 込み 開始 (LOAD [2]) 


(внікТі--|Е2 WIDTH** 
[SHIFT]+[F3] CHR$(** 
[SHIFT]+|F4] PALET** 
[SHIFT]+ [F5] 実行 再開 (CONT [| と 同じ ) 


[注意 ] [F1] [F2] [F4] [F5], [SHIFT]+[F1],[SHIFT]+ [F5] 
を 用 いる 場合 は 。 あら か じ め カ ー ソ ル を 「 空 いて いる 行 」 に 置い て か ら 
ファ ンク ショ ン ・ キ ー を 押す こと . 


ж 標準 状態 すなわち 後述 の KEY 文 に よる 機能 変更 を し て いな い 場 合 . 
жж これ ら の 綴り が 表示 され る . この 後に パラ メー ター を 補っ て 命令 ある 
い は 関数 に し て 用 いる . 
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2.16 カセ ッ ト ・ テ ー プ へ の 記録 


で き あ が っ た プロ グラ ム を カセ ッ ト ・ テ ー プ に セー ブ (save, 保存 の 
た め 書 い 込 むこ と ) し て お いて 。 後日 それ を ロー ド (load, 読み 込ん で 制 
御 機構 に 装着 する こと ) する こと が で きる 。 


現在 メモ リー に 入っ て いる プロ グラ ム を カセ ッ ト ・ テ ー プ に 記録 す 
る に は , 正式 に は 
SAVE "САЗ: ファ イル 名 『 


と する . し か し 普通 は CAS : を 省略 し て 


SAVE "ファ イル 名 (2 
と し て よい .。 この よう に し て ファ イル 名 を 付け て お け ば 。 1 本 の テー 
プ に 二 つ 以 上 の プロ グラ ム を 記録 し て も , 指定 し た ファ イル を 自動 的 
に さがし て 読み 込む こと が で き て 便利 で ある 。 


ファ イル 名 を 付け る 必要 が な けれ ば ,。 SAVEA] だ け で よい . 1 本 の 
テー プ に プロ グラ ム を 1 本 し か 記録 し な い 場 合 に は これ で も よい 。 また , 
ファ イル 名 を 使う の が めん どう だ か ら と いっ て 全部 の ファ イル に 同じ 名 
前 を 付け る 人 が いる が , そう する くら いな ら フ ァイル 名 を 省略 する 方 が 
簡単 で よい . 


ファ イル 名 の 付け 方 本 機 で は 13 字 まで の ファ イル 名 を 用 いる こ 
と が で きる 。 RF, 数 字 。 カナ 文字 , 空白 。 記号 (た だ し コン マ と コ 
ロン と セミ コロ ン を 除く ) を 使用 し て よい 。 


照 Фа ゲロ グ ラム を セー デ し だ た と き 。 なみ セ ッ ト ・ テ ー プ に 正 し 
く 記 録 さ きれ て いる か どう か 調べ る に は 。 セー プ し た あと , テー プ を 巻 
き 戻し , 次 の よう に 指令 する . 

LOAD? "ファ イル 名 『 | 


3 BASIC 入門 一 簡単 な 計算 と 入出 力 


3.1 BASIC と は 


BASIC は , コン ピュー ター を 使う た め の 上 言語 (7 

の 一 種 で ある . ほか に も 
FORTRAN COBOL PL/I PASCAL 

な ど 各 種 の プロ グラ ミン グ 言 語 が ある が , BASIC に は 
簡単 で 覚え 易い 

と いう 特長 が あり , その た め パ ソコ ン で は 広く 使わ れ て いる . 

BASIC 419644, Dartmouth 大 学 の ]. С. Kemeny と Т.Е. Kurtz に 
より , 学生 に コン ピュ ー タ ー を 教え る た め の 言 語 と し て 開発 され , 教育 
用 言語 と し て , また TSS 用 言語 と し て 知ら れ て いた が , 25% 3 ン で 使わ 
れる よう に な っ て か ら 機 能 は 大 幅 に 拡張 され , 今日 で は 実務 に も 広く 用 
いら れ て いる . 一 口 に BASIC と いっ て も いろ いろ な 種類 が ある . 本 機 の 
BASIC (SHARP HuBASIC と いう ) %, 

整数 型 。 実数 型 。 倍 精度 実数 型 を 使用 で きる 
GOTO 等 の 行先 に ラベ ル を 使用 で きる 
配列 は 何 次 元 で も よい (文字 列 型 の 多 次 元 配列 も 可 ) 
ІЕ--ТНЕМ--ЕІМВЕ?УЯ2 5 
文字 列 の 処理 機能 が 強力 
図形 表示 機能 が 強力 
テレ ビ の 制御 や 重ね 合わ せ 表 示 が で きる 
スク リー ン ・ エ ディ ター が 使い 易い 
な どの 特長 を も つ 。 た い へ ん デラ ックス な BASIC で ある . 


Пп 
ғ, 
NII 
ГП 
V 
~ 
Щі 
8 
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3.2 命令 と ブロ グラ ム 


直接 実行 形式 バ パソ コン は 命令 どおり に 動く 。 た と えば 


А=2, (A の 値 を る に せよ , と いう 意味 ) 

と 命令 する と 。 変数 A の 記憶 場所 を 用 意 し , そこ に 値 る を 入れ る . また 
В-5 (B の 値 を る に せよ ,。 と いう 意味 ) 

と 命令 する と 。 変数 己 の 記憶 場所 を 用 意 し . そこ に 値 る を 入れ る . 次 に 
С=А+В (A 寺 の 値 を C に 代入 せよ ) 


と 命令 する と , 変数 C の 記憶 場所 を 用 意 し , A+ せ す な わ ち る 十 る の 計算 
を し , 結果 5 を C の 所 に 入れ る . さら に 

PRINT С (C の 値 を 表示 せよ 。 と いう 意味 ) 
と 命令 する と , C の 値 が 表示 され る . 
[実習 ] も し 手もと に 本 機 が あっ た ら , 上 の 例 を 実際 に や っ て みる と よい . す 
な わ ち 

A=2 || 

B=3 Г] 

С=А+В || 

PRINT С |1 
と 入力 し て みる と よい . 即座 に 結果 5 が 次 の 行 に 表示 され る で あろ う .。 な お 。 
つい ぃ いで に 

PRINT A,B 1] (A と B の 値 を 表示 せよ ) 
と 命令 すれ ば 。A と 互 の 値 が 確か に る と る に な っ て いる こと を 確認 する こと が 
で きる . 


ок. 

PRINT ё, В 

2 3 
ок. ; 
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間接 実行 形式 (普通 の 使い 方 ) 左記 の 例 の よう に , 1 ステ ッ プ ご 
と に 使用 者 が 命令 する 方 式 で は 。 複雑 な 計算 は で き な い . そこ で 普通 は 
一 連 の 命令 (これ を プロ グラ ム と いう ) を あら か じ め コ ンピュータ ー に 
記憶 させ , 命令 を 順に と り 出 し て き て 実行 する ,。 と いう 方 式 (プロ グラ 
ム 記 憶 方 式 。 間接 実行 形式 ) を 用 いる . 
BASIC で これ を 行なう に は , 命令 の 頭 に 行 番号 を 付け て 入力 し , プロ 
グラ ム を 入れ 終っ た ら 
RUN (| 


と いう コマ ンド (直接 実行 命令 の 一 種 ) で 実行 を 指令 すれ ば よい . 


行 番号 行 番号 と し て は 1 一 65534 の 範囲 内 の 整数 値 を 用 いる こと 
が で きる (0 は 使え な い の で 注意 ! )、 

プロ グラ ム は 原則 と し て 行 番号 の 順に 実行 され る . 行 番号 は また , 
プロ グラ ム の 修正 挿入 削除 の 際 の 位置 の 指定 に 用 いら れる . 行 


番号 は 連続 し た 番号 で な く て も よい (欠番 が あっ て も よい ). そこ て で 普 
通 は 

10. 20; 50, 40, 50, 
と いう よう に 10 と び の 番号 を 付け る *. 


[実習 ] 左記 の 例 を 間接 実行 形式 で 実行 きせ て みよ う . それ に は 
10 А=2 |.) 
20 B=3 |!) 
50 C=A+B [1] 
40 PRINT С 
RUN |.) 


と 入力 すれ ば よい . 行 40 を 入れ た と き に は 何 も 出 力 さ れず , НОМ させ て は じ 
め て 結果 5 が 表示 され る で あろ う . 


ж 。 AUTO と いう コマ ンド で 「 自 動 番 号 付加 」 を 指令 し て お く と ,。 自動 的 に 
この よう な 番号 を 付け て くれ る (16 ペ ー ジ 参照 ). 
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3.3 INPUT х 


プロ グラ ム は 。 普通 。 


デー タ を 結果 を 
ーー ャ 理 を する | 一 > 


と いう 構造 を し て いる . 本 章 で は , これ に 従っ て 
入力 の 部 分 の 書き 方 
処理 の 部 分 の 書き 方 
出力 の 部 分 の 書き 方 
の 順に 文法 を 説明 する こと に する . 
INPUT 文 の 基本 形 デー タ 入 力 の た め に は INPUT と いう 命令 
が ある . 最も 単純 な 書き 方 は 


INPUT 変数 名 


( 例 ) INPUT A 


С, その 変数 の 値 を 入力 せよ , と いう 意味 に な る . 二 つ 以 上 の 変数 の 値 を 
ーー つの 1TNPUT 文 で 入力 する と き は , 変 数 名 を コン マ で 区 切っ て 書く . 


INPUT 変数 名 , 変数 名 
INPUT 変数 名 , 変数 名 , 変数 名 
( 例 ) INPUT А,В,С 


入力 要求 メッ セー ジ の 出し 方 書き 方 は 次 の と お り . 


INPUT "メッ セー ジリ : 変数 名 。 … 。 変数 名 
Ж? 


INPUT リ メ ッ セ ー ジ 『 。 変数 名 。 … , 変数 名 
上 の よう に リ "メッ セー ジリ の 次 を セミ コロ ン に する と ?7 印 が 表示 され 
>. それに 対し コン マ に する と ?7 印 は 表示 きれ な い 、。 


Ы) INPUT は Т. で 代用 で きる 。 


3.3 INPUT 文 31 
(M) INPUT "А,В-";А,В 
INPUT "x ヲイ レ テ ク タ " サイ リ : 文 
INPUT "アナ タッ ナシ ン サ イ テ " スカ の iN 
入力 要求 メッ セー ジ は , 実行 時 に 画面 に 表示 され る . た と えば , 上 の 
最初 の 例 の INPUT 文 を 実行 する と , 
A, B=? 
と 表示 され , その 右 に カー ソル が 来る . 


実行 時 の 操作 方 法 
1) 入れ る デー タ が 1 箇 の 場合 は , その 値 を キー ボー ド か ら 入 れ て 
最後 に |:』| キー を 押す . 


2) 二 つ 以 上 の デー タ を 入れ る 場合 ほ コ ンマ で 区 切る 。 一 つの エ K 


PUTEK SADDER: 必ず 1 行 で 入れ な けれ ば ぼ ば いけ な い *. 
3) TNPUTT 文 に 書か れ た 変数 の 箇 数 (m と する ) と , 入力 し た 
デー タ の 人 箇 数 (z と する ) が 合わ な い 場 合 **, 
т> п な ら ば 。 残り の 変数 の 値 は 変ら な い . 
m<n な ら ば 。 余分 な デー ター は 無視 きれる. 


指数 部 の 付け 方 非常 に 大 きい 数 や 非常 に 小さ い 数 を 入力 する 場合 
に は , 指数 部 付き の 形 で 表す と 便利 で ある . 書き 方 は 
б. ЛЧ Е + ERER 
符号 指数 部 の 符号 
T, ЖЕ +n ił [x10] を 表す . 
( 例 ) -1Е6 は -1 х10%- —1000000 
5.2Е-1 は 3.2x10!=0.32 
を 表す . 

ж 画面 で は 何 行か に また が っ て も よい . 画面 の 方 は 右端 に 来る と 自動 的 に 
次 の 行 に 移っ て くれ る か ら , か まわ ず 続 け て 入力 する . 文法 上 は 「 | | を 入れ 
る まで が 1 行 ] と し て 扱わ れる . 

жж こう いう 場合 の 扱い 方 は 機種 に よっ て 異な る の で , 他 機 種 の プロ グラ 
ム を 本 機 に 移植 する 場合 に は 十分 注意 きれ た い . 
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3.4 代入 文 (LET 文 ) 


代入 文 の 正式 の 書き 方 は 
LET 変数 名 三 式 

で ある 。 し か し 世 豆 呈 を 省く こと が 許さ きれ て いる の で 
変数 名 三 式 


と いう 形 で 書く の が 普通 で ある . 
( 例 ) LET С=А+В 
С=А+В 


これ ら の 文 は ,「= の 右 に 書か れ た 式 の 値 を 計算 し て , の 左 に 書か れ 
て いる 変数 に 代入 せよ 」 と いう 意味 に な る . 
( 例 ) A の 値 が る , の 値 が る の と き 。 RAX 
С=А+В 
実行 すれ ば C の 値 は 5 に な る . 


[備考 ] 1) 代入 先 の 変数 名 は 必ず = テ の 左側 に , 式 は 必ず = の 右側 に 書か な け 
れ ば ぼ ば いけない. し た が っ て 。 次 の よう な 書き 方 は 許さ れ な い 。 
LET А+В=С 

2 ) 単独 の 変数 また は 定数 も , 広い 意味 で の 「 式 」 の 一 種 と みな され る . し 

た が っ て 
LET А=1 
な ど と 書い て も よい (1] だ け で も 「 式 」 TSZ). 

3 ) 変数 の 値 は 代入 文 に よっ て 何 度 で も 書き か える こと が で きる . その 特別 
な 場合 と し て , 左辺 の 変数 名 が 右辺 の 式 に 現れ て も よい . その 場合 , 式 の 値 を 
計算 する 段階 で は 代入 前 の 値 が 使わ れ , その 結果 が 左辺 の 変数 の 新しい 値 と し 
て 代入 され る (書き か えら れる )、 

( 例 ) エ の 値 が る の と き 。 RAX 

I=I+1 
を 実行 する と , まず エナ 1 (すなわち る 十 1 ) の 値 が 計算 され , その 結果 る が エ 
に 代入 され る か ら , 実行 後 の エ の 値 は 3 る に な る 。 要するに,。 この 代入 文 は 「 エ 
の 値 を 一 つ ふ や せ 」 と いう 命令 だ と 思え ば よい 、。 


本 機 の 変数 名 の 名 付け 方 の 規則 は 次 の と お り . 
最初 の 文字 は 英字 に 限る 
2 字 目 以後 は 英字 また は 数 字 : 
字数 は 240 字 以下 


小文字 も 使用 で きる が 大 文字 と 同じ 文字 と 解釈 され る 

予約 語 (BASIC で 特別 な 意味 を も つ 綴 り 、 た と えば RUR, 
TINPUT な ど ) で 始ま る も の は ほ は いけない 

FN で 始ま る 綴り は 使用 で き な い 


な お 
識別 に は 綴り の 最後 まで 全部 が 有効 で ある 


(変数 名 と し て 使え る 綴り の 例 ) 
SHARP х1. ЈА1АС н20 JBL 
DIFFERENCE YMO ӘЕОНАҮАМІ 
(変数 名 と し て 使え な い 綴 り の 例 ) 


ONDO 予約 語 0N で 始ま る 
ТАМКА 予約 語 TAN で 始ま る 
н.т 英字 , 数 字 以 外 の 文字 を 含む 


[解説 ] 他 機 種 ご は 「 識 別に は 先頭 の 2 文字 だ けが 有効 」 と か 「 変 数 名 
の 綴り の 途中 に 予約 語 が 含ま れ て いて は いけ な い 」 と いっ た 制約 の ある 
も の が 多い . 本 機 に は そう いう 制約 が な い の で 非常 に 使い 易い . 

[注意 ] 長い 変数 名 を 使う の は , 文法 上 は 自由 で ある が , じつは 計算 が 
少し 遅く な る . た と えば , 1.200 1) に 示し た 所 要 時 間 3 秒 は 1 文字 の 
変数 名 ( エ , 8 な ど ) で 計算 し た 場合 の 値 で ある が , 同じ プロ グラ ム を 10 
字 の 変数 名 に 変え た て 計っ て みる と 5 秒 か か る . 
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RAF 加減 乗除 を 
+ 一 ノ 
で 表す 。 ベ キ 乗 は へ 印 で 表す . 
Ш) X Е XY TAF. 
カッ コ 丸 カ ッ コ (  ) だ けが 使用 可能 . 何 重 に 使っ て も よい . 


1 
( 例 ) 1 Ее д^ тле) TET. 
Ж FLT +1 


計算 順序 普通 の 数 式 と 同様 に 
カッ コ の 中 を 先 に 計算 する 
加減 算 よ り も 乗除 算 を 先 に 計算 する 
さら に べ キ 乗 が あれ ば 先 に 計算 する 
と いう 規則 で 処理 され る . な お 優先 順位 が 同じ も の に つい て は 
左 か ら 順 に 計算 され る 
の が 普通 で ある . 
( 例 ) А/В/С は (А/В)/С と 同じ 結果 に な る . 


[備考 ] 上 記 以 外 の 記号 , た と えば 

1 % # $ У 
な ど は 。 普通 の 数 式 に お ける 意味 ( 階 乗 。 バ パーセント な ど ) に は 使え な い . 特 
に 注意 を 要する の は ! お よび % で , これ は 後述 の よう に それ ぞ れ 実数 型 お よび 
整数 型 を 表す 属性 文字 で ある か ら ,。 た と えば 

5! 5% 
は 「5 の 階 乗 」「 5 パー セン ト 」 で は な く 「 実 数 型 の 5」「 整 数 型 の 5」 を 表 
す 。 


整 除 ( 商 が 整数 で 表せ る 所 まで 割る ) ЗҰНП, 余り は MOD で 表す . 


綴り MOD の 左 は 原則 と し て 1 字 あ ける こと . 


( 例 ) С-АҰВ A を で 整 除 し た 商 を C と する 。. 
R=P MOD 2 P を る で 割っ た 余り を と する 。 


36 ова 35 
例題 1 和 差 積 商 ( 1) 
つの 数 値 を 読み 込み , その 和 , 2, Ж, 商 を 計算 し て 表示 する プ 


ログ ラム を 作れ 。 


[解答 ] ЖП, ж, 積 , 商 を 変数 名 WA, SA, SEKI, SYOU で 表す こと 
ТЫЗ, ӘР FAUNO E Ээ ER: 

18 INPUT А, В 

20 WA=A+B 

30 SA=A-B 

40 ЅЕКІ=ажВ 


50 SYDU=A/B 
68 PRINT МА, SA, SEKI, SYOU 


例題 2 円 の 面積 
半径 ヶ の 値 を 読み 込み , 円 の 面積 = ar? を 計算 し て 出力 する プロ 


ダラ ジム を 作れ 。 


[解答 ] 本 機 で は 々 と いう 文字 が 円 周 率 を 表す の で 。 そ れ を 用 いる と よ 
い 。z ヶ は [GRAP 了 H|+|A で 入力 する . 


18 INPUT R 
20 5-лжКк“2 
30 PRINT 5 


RUN 
Ча 

12. 566371 
ок 


--------.-..--..-.--..л ы" шя.----- - 
21 (台形 の 面積 ) 台形 の 底辺 の 長き さく , ぁ お よび 高 さ ん を 読み 込み 
面積 а 
5 =1-(а+В)й 


高 さ 
を 計算 し て 出力 する プロ グラ ム を 作れ . h 
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3.7 組込み 関数 


一 般 に , BASIC で は 次 の 関数 を 使用 で きる (#1). 
種類 数 学 記号 BASIC に お ける 書き 方 


平方 根 уж SQR (引数 ) 
指数 関数 ех EXP ( 引数 ) 
自然 対数 loge x, Inx LOG( 引 数 ) 
正弦 sinx SIN( 引 数 ) 


余弦 cosx COS (引数 ) 
正 接 tanx TAN( 引 数 ) 
arctan x ATN( 引数 ) 

|х| ABS( 引 数 ) 

[x] INT( 引 数 ) 

SGN( 引 数 ) 


注 1) この ほか に , 
文字 列 処理 の た め の 関 数 
乱数 発生 の た め の 関 数 
状態 を 調べ る た め の 関 数 
な ど が ある . 
注 2 ) 引数 の 単位 は ラジ アン と し て 扱う 。 度 を ラジ アン に 直す に は 
п/180 0.0174533 
を 掛け れ ば よい . 
注 3) 単位 は ラジ アン . 値 の 範囲 は ー ァ / 2-ー ァ / 2 に な る 。 
ディ スク BASIC で な いと 使用 で き な い 。 
注 4) * を 越え な い 最 大 の 整数 . 


( 例 ) INT(3 る .14 ) は 3 ІМТ(-5.14)1І:-4І%2., 
注 5) х<0 な ら ば 8SGN(X) の 値 は 一 1 に な る 
x=0 な ら ば n о n 
х>0 な ら ば n +1. n 


[備考 ] 関数 の 精度 は 約 8 桁 と 考え て よい . 上 記 以 外 の 数 学 的 関数 は 組込ま れ 
て いな い の で 自作 する 必要 が ある 。. 
( 例 ) 立方 根 * ソ ツ * は X^(1/3) と し て 計算 

arcsin x は ATN( メ ノン SQR (ユー 双 * 又 ) ) と し て 計算 
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以上 の ほか に , 本 機 で は 特に 下記 の 関数 を 使用 で きる . 
本 機 の BASIC に よる 書き 方 


E (n!) FAC (引数 ) * 
п まで の 整数 の 和 SUM( 引数 ) ғ” 


度 を ラジ アン に 変換 RAD( 引 数 ) 
НА л の 引数 倍 PAI (引数 ) 9 
整数 部 FIX( 引 数 ) 9 
小数 部 FRAC ( 引数 ) * 


( 例 ) 19 INPUT М 
20 H=SUM¢N) 
30 K=FAC (N) 
40 PRINT М,Н,К 
RUN 
? 18 
19 55 3628800 
ок 


注 1) 引数 は 0 一 33 の 整数 で な けれ ば いけ な い . 


注 2 ) 1+2+3+ +n = 


nint の 値 が 求め られ る . 


三角 マト リッ クス の 圧縮 格納 等 に 便利 で ある . 
ТЕЗУ た と えば PAT(2) は 2 ァ 
注 4) 正 数 の 場合 は エ NT と 同じ 結果 に な る が , 負数 の 場合 は 異な る . 
( 例 ) ІМТ(-5.14) の 値 は 一 4 
ЕІХ(-5.14) の 値 は -5 
注 5) 符号 と 小数 部 を 残し て 整数 部 を 消す . 
( 例 ) ЕҺАС(5.14 ) の 値 は 0.14 
ЕНАС(-5.14) の 値 は -0.14 


[注意 ] これ まで の シャ ー プ の パソ コン (MZ シリ ー ズ ) で は , 
LOG (x) は 常用 対数 を 表し , 自然 対数 は LN( * ) で 表し て いた が 。 
本 機 で は 他社 の パソ コン と 同様 に LOG が 自然 対数 を 表す よう に な り , 


LN は 廃止 され た . 本 機 で うっ か り LN (x ヶ x ) を 使う と 「 LN と いう 名 前 
の 配列 の 要素 ] と 解釈 され る か ら , 値 は た いて い 0 に な る . 既存 の プ 
ログ ラム の 利用 に 際 し て は 十分 に 注意 きれ た い . 
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例題 ——2 次 方 程 式 の 根 ( 1 ) 


ах2--ӛх--с = 0 


の 根 を 求め る プロ グラ ム を 作れ . 


[解答 ] 根 の 公式 を 用 いる . 
—b+ vb?—4ac 
=з 2а 


10 INPUT а, В,С 
20 Х1= (-В +506 (Б”2-4жажС); ) / (2жаА) 
30 Х2= (-В-5068 (В ^2-4жажсС) 2 / (2жА) 
48 PRINT хі, х2 

[注意 ] の 一 42c く 0 に な る デー ター を 入れ る と 
111е9а1 function call іп 20 

と いう エラ ー・ メ ッ セ ー ジ が 出 て 止ま る . 

例題 4 三角 関数 

Ө = 30 に 対す る 


Sin の COS の tan の 


の 値 を 計算 し て 出力 する プロ グラ ム を 作れ . 


[解答 ] 36 ペ ー ジ の 注 2 ) を 考慮 し て 次 の よう に 計算 する . 


10 THET ム =39 

20 Х-ТНЕТАажл/188 
30 S=SIN(X?) 

40 С-С05 (X) 

50 Т=ТАМСХ› 

る 9 PRINT 5,С,Т 


・5 . 38660254 . 57735027 


logox を 計算 する に は どう すれ ば よい か . 


[解答 ] LOG(X) ノ LOG(1 ユ 0 ) 
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例題 6 一 一 一 一 一 多項式 の 計算 
ィ の 値 を 読み 込み 

= 2x°+5x?+3x +1 


の 値 を 計算 し て 出力 する プロ グラ ム を 作れ . 


[解答 ] 多項式 

2х3+5х2+3х +1 (1) 
の 値 を 計算 する に は , 式 を 

((2х-++5)х+3)х-+1 (2) 


の よう に 変形 し て プロ グラ ム に 書く と よい 、. 


10 INPUT "X=",X 
20 Ү-((2ЖХ%5) жх+3) жхе1 
39 PRINT "Y="; Y 

も と の 式 (1) を その まま 使っ て 


10 INPUT "X=",X 
20 Ү=2жх^3 +5жх^2 +3жх+ 1 
30 PRINT "Үс", ү 
と 書い て も 誤り は な い が , 式 (2) の よう に 変形 し て 計算 する 方 が 
計算 時 間 が 短い 
計算 誤差 が 少な い 
な どの 利点 が ある . 
----------------.-...---Ж 習 問 ---------------------- 
22 (立方 根 ) 体積 の 立方 体 の 1 辺 の 長き さ ?Z を 計算 する プロ グラ ム を 
作れ 。 
[ヒン ト ] а-УУ- V9 を 計算 し て 出力 すれ ば よい (BASIC の ベ キ 乗 演 
算 の 指数 部 は 整数 で な く て も よく , そこ に 式 を 書い て も よい ). 


23 (ピタ ゴラス の 定理 , 三平 方 の 定理 ) 直角 
三角 形 の 直角 を は さむ 2 辺 の 長き ?, БЖ 


込み , 残る 1 辺 の 長 さ a 
c= J+ b 


を 計算 し て 出力 する プロ グラ ム を 作れ . 
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3.8 利用 者 が 定義 する 関数 


組込み 関数 (3.7 節 参照 ) 以外 の 関数 は , 自分 で 作ら な けれ ば な ら な 
い . そ れ を 一 つの プロ グラ ム の 中 の 何 箇所 も で 使う の で あれ ば , サ ブルー 
チン (4.17 節 参照 ) の 形 で 扱う の が よい . し か し , 特に , 関数 の 計算 式 
が 1 行 で 書け る 場合 に は , 「 利 用 者 が 定義 する 関数 ] と いう 形 で 扱う と 

引数 を 設け る こと が で きる 
算術 式 の 中 に 書け る 
と いう 利点 が ある . 


m 関数 を 定義 キ する に は DBE“ 文 を 用 いる . これ は 次 の 形式 で 書く . 
DEF 関数 名 ( 仮 引数 )= そ の 関数 の 計算 式 
= 関数 名 は 3 文字 以上 で , 
先頭 2 文字 は EN に 限る 
第 3 字 は 英字 に 限る 
FN の 次 に 予約 語 と 同じ 綴り が あっ て は いけ な い 
(正しい 例 ) FNA ЕМС 
(誤り の 例 ) ТАМ Е FNSINH 
= 。 仮 引数 が 不要 な ら ば 無く て も よい . その 場合 の 形 は 
DEF 関数 名 = その 関数 の 定義 式 
と な る . 
m 仮 引 数 と し て は 変数 名 を 書く . 本 文 の 変数 名 と 重複 可 . 
= 関数 は , 関数 名 ( 実 引数 ) の 形 で 代入 文 な どの 式 の 中 に 書く こと 
が で きる . 実 引数 と し て は , 定数 , 変数 の ほか , 式 を 書い て も よい . 
引数 な し の 関数 は 関数 名 だ け で 引用 され る . 


Ф DEE 文 は そこ を プロ グラ ム の 流れ が 通過 する と き に 関数 が 「 定 
ж] され る . 単に 「 プ ログ ラム の 一 部 に 書い て ある 」 だけ で は 有効 に な 
ら な い の て で 注意 を 要する . 
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3.9 自分 で 簡単 に 作れ る 関数 


下記 の 関数 は 組込み 関数 に 入っ て いな い が , DEF 文 に よっ て 容易 に 
自作 ずる と と が で きる 、。 


= ех—е-х 
ѕіпһ х = 


ら ペ ー ト ウー テ 
2 


tanh x = sinh х/соѕһ x 


cosh x 


arcsin x = arctan -ar 


arccos x = л/2--агсвіп х 


S/T = хз 


[プロ グラ ム 例 ] 上 記 の 関数 を BASIC で 書い た 例 を 示す . 


19 INPUT "X=",X 

20 DEF FNSH (X) = (EXP (X) -EXP (-X)) 72 
30 DEF FNCH (X) = (EXP (X) +ЕХР (-X)) 72 
40 DEF ЕМТН (X) =F ト NISH (X) /FNCH (X) 

50 DEF FNAS IN(X) -АТМ(Х/5ОВ<1-ХжЖХОО 
68 DEF FNACOS (X) -л/2-ҒМАбІМ(Х> 

70 PRINT "X=";X 

80 PRINT "sinh(x)=" ЕМӘН ОО 

90 PRINT "cosh(x)=";FNCH (X) 

100 PRINT "tanh<x)=";FNTH (ХО 

118 PRINT "агс=іп х) =" FNASIN(X) 
120 PRINT "arccos х) =" ; FNACCS (Xx 


[出力 例 ] 


X= .5 

віпҺһ(х- .5210953 
cosh (х) = 1.127626 
tanh<(x)= .46211716 
arcsin(x)= .52359878 
arccos (х) = 1.0471974 
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3.10 PRINT 文 


結果 を 表示 する に は PRINTT 文 を 用 いる . 最も 簡単 な 使用 法 は 
PRINT 変数 名 また は р. 変数 名 


で ある が , 一 般 に 式 を 書い て も よい . 
PRINT 式 また は 。 ж 


( 例 ) PRINT X 
PRINT (А+В)ж(С+р)/2 


ニニ っ 以上 列記 し た い 場 合 は コン マ ま た は セミ コロ ン で 区 切っ て 書く . 
( 例 ) PRINT А,В,С-ҒО 
PRINT А; В; Сс+р 


セミ コロ ン で 区 切っ た 場合 は , 前 の 値 に すぐ 続け て ( 問 を あけ ず に *) 
次 の 値 が 出力 され る それ に 対し コン マ で 区 切っ た 場合 は 。 一 定 の 位 
置 ま で スキ ッ プ し て か ら 次 の 値 が 出力 され る .** 


(ЙІ) 10 A=12.3 
20 B=5. 67 
30 С=-890 
49 PRINT А,В,С 


45 РКІМТ これ は 間 を 1 行 あ ける た め 
50 PRINT А;В:С 


の 実行 結果 は 次 の よう に な る 。. RUN 


12.3 5.67 -870 
ок 
(上 は コン マ で 区 切っ た 場合 ,. 下 は セミ コロ ン で 区 切っ た 場合 で ある ). 


ж た だ し 数 値 デ ー タ ー の 出力 の 場合 , 後に 1 字 分 の 空白 が 入る . また 先頭 
は 符号 で ある が 。 十 印 の か わり に 空白 が 出力 され る . その た め 正 数 の 間 に は 2 
字 分 の 空白 が 入る こと に な る (上 の 例 の 12 る と 5。.67 の 間 が それ で あ 
5). 

жож 位置 は 画面 上 で は 左端 か ら 10 字 間隔 , プリ ンタ ー で は 8 字 間 隔 で 設定 
され て いる 。. 
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改行 と 非 改行 PERTNT 文 と 改行 の 関係 は 。「 特 に 指定 し な い 限 
0, 1 箇 の PRINT 文 が 出力 の 1 行 に 対応 する 」 と いう の が 第 1 原則 


で ある 。 


( 例 ) A と B と C を 1 行 目 に D と 選 を 2 行 目 に 出力 し た けれ ば 
PRINT А,В,С 
PRINT D,E 

と すれ ば よい . 


同じ 行 に 続き を 出力 し た い 場 合 は 。 PRINT 文 の 最後 に コン ッ ンマ また 
は セミ コロ ン を 書い て お く . 左 の ペー ジ で 述べ た 規則 と 同様 に 。 コン 
マ な ら ば 一 定位 置 ま で スキ ッ プ し , セ ミコ ロン な ら ば 間 を あけ ず に (た 
だ し 前 の ペー ジ の 脚注 参照 ) 続き が 出力 され る . 


( 例 ) PRINT А 
PRINT В 
逆 に ー つ の PRINT 文 の 途中 で 改行 させ る こと は , 不可 能 で は な い が *, 
プロ グラ ム の 明快 さき を 損ね る の で , あま り 使 わな い 方 が よい . 
жө, 以上 の よう に し て 定まる 1 行 の 文字 数 が 画面 の 幅 ( 1 行 に 表示 
で きる 文字 数 ) を オー バー する 場合 に は , は み 出 す 直 前 の 数 値 の 区 切り 
の 所 で 自動 的 に 改行 され る . 


"は PRINT А,В と 同等 . 


見 出し の 付け 方 見 出し な どの た め に 文字 列 を 出力 し た い 場 合 は , 


出力 し た い 文字 列 を 2 重 引 用 符 (" 印 ) で 囲ん で , PRINT 文 の 出力 


項目 の 所 に 書く . 


10 Y=599 
20 PRINT OY 


RUN 
2 500 円 
ок 


ж 出力 項目 と し て 改行 コー ド CHR$( 15) を 書け ば よい . 
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出力 され る 数 値 の 書式 符号 や 小数 点 を 含め て 10 桁 すら いで お さま 
る 数 値 は その まま の (普通 の ) 形 で 出力 され , それ で お さま ら な い ゆい 数値 
は 指数 部 付き 形 (+Л.ЛАЛААЕ+ЛЛ) で 出力 され る . 
( 例 ) 10,100,…,10” と その 逆数 0.1,0.01,…,10-" を 出力 する と 次 の 
E DER A; 


10 .1 


100 ・91 

1999 ・991 
19999 ・9991 
199999 ・99991 
1999999 ・999991 
19999999 ・9999991 
1Е +08 . 068000001 
1Е +09 1Е-09 
1E+19 1Е-10 
1E+1 1 ТЕЗІ 
1Е+12 だま 
1E+13 1Е-13 
1Е+14 1Е-14 
1Е+15 1Е-15 


また 。 11!。 11 …。11? お よび その 逆数 を 出力 する と 次 の よう に な る 。 


1 1 9. 090909 1 ビー92 
121 8.2644628Е-ӨЗ 
1331 7.513148Е-04 

14641 6.830134%Е-05 
161051 6.2092132Е-04 
1771561 5.6447393Е-07 
19487171 5.1315812Е-08 
2. 1435888E +08 4. 6650738E-0? 
2. 35792477E +09 4.2409762Е-18 
2.5937425Е +10 3.8554329Е-11 
2.8531167Е%11 3.504939Е-12 

3. 1384284Е +12 3. 186 る 3982E- 13 
3. 45227 12E+13 2.8966438Е-14 
3. 7974983Е +14 2.6333125Е-15 
4.1772482Е%15 2.3939205Е-14 
4.594973Е +16 2.1762914Е-17 


[指数 部 の 読み 方 ] エエ へ . へ へ へ へ ム へ 至 土 へ へ は , エキ へ . へ へ ヘ へ ヘム へ へ メメ 
10:44 を 表す . 
( 例 ) 1Е--О613410%- 1,000,000 
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3.11 プリ ンタ ー へ の 出力 


ゲ リ ン ター に 出力 する に は 。 PRINT の か わり に LPRINT と 書け 


例題 7 和 差 積 商 ( 2 ) 
二 つ の 数 値 を 読み 込み 。 その 和 , Жж, W, 商 を 計算 し て プリ ンタ ー 


に 出力 する プロ グラ ム を 作れ 。 


[解答 ] 要する に 例題 1 の プロ グラ ム の PRINT を LPRINT に 書き 
か えれ ば よい の で ある が , 単に 結果 の 数 値 を 四 つ 並 べ て 印刷 し た だ け で 
は , あと で 意味 が わか ら な く な っ て し まう か ら , な る べく 
入力 デー タ も 印刷 する 
それ ぞ れ の 値 に 説明 を 付け る 
と いう こと を 心掛け る と よい 。 以 下 に 示す の は 。 その よう な プロ グラ ム 
の 一 例 で ある . 


10 INPUT "A="; 

20 INPUT "B=";B 

30 LPRINT "A=";A 

40 LPRINT 'B=";B 

50 LPRINT "A+B=";A+B 
60 LPRINT "А-В=' ; А-В 
70 LPRINT “АжВ-";АжВ 
80 ІРБІМТ "А/В-";А/В 


24 (会 計 ) 単価 と 数 量 を キー ボー ド か ら 入 力 し 
(単価 ) x (数 量 ) = (金額 ) 
の 計算 を し て プリ ンタ ー に 出力 する プロ グラ ム を 作れ . 
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3.12 КЕМ 


プロ グラ ム の 中 に 注釈 (説明 , 覚え書き) を 書い て お く と ,。 あと で 
読む と き , わ かり 易く て よい 、。 注釈 は REBM 文 の 形 で 書く *. 書き 方 は 
REM 注釈 


T, 注釈 と し て は 任意 の 文字 列 ( 英 数 字 。 カナ 文字 。 記号 。 空白 な ど 。 
何で も 自由 に 使用 で きる ) を 書く こと が で きる . 

REBM 文 は プロ グラ ム の 中 の どこ に 書い て も よい .。 た だ し (後述 の ) 
マル チ ・ ス テー トメ ント に 関し て は 注意 が 必要 で ある (3.16 節 参照 ). 


( 例 ) 10 REM жхххжжжжжжжяжеххжжжжжж 


15 REM x ж 
20 REM ж 72) サイ サン ж 
25 REM ж ж 
30 REM ж М...%жу27? ж 
35 REM ж Рр...жу リリ ツ (%) ж 
40 REM ж  A.。。 カ " ン キ ン ж 
45 REM ж б...2“у) 1995 ж 
50 REM x ж 
55 REM 23E EEIE ЗЕ ЗЕ ЭЕ 3Є ЭЕ ЭЄ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ 


60 REM 9--2- ヨミ コミ 
65 INPUT "№" ;М№ 
70 INPUT "R="$R 
75 INPUT "A=";A 
80 КЕМ ケイ サン 

85 G=Ax(1+R/100)^N 
90 КЕМ f») э Ез95" 
95 PRINT "б-";6 


綴り REM の か わり に ^ 印 (アポ スト ロフ ィ ー) を 用 いて も よい 、。 


^ ЕЖ 


10 ° シ " ソ ク (km/h) ヲ Е“з2У27(п/зес)с カン サン 
20” 
30 INPUT "シラ * ソ ク (km/h)=" М 


40 U=V/3.6 
50 PRINT " ヒ " ョ 9 ツク "3U; "(m/sec)" 


ж REM は remark の 意味 . 


3.13 END と STOP と PAUSE 47 
3.13 END と STOP と PAUSE 


ЕМГ, STOP, PAUSE, いずれ も 「 止 まれ 」 と いう 命令 で ある 
が 。 機能 が それ ぞ れ 次 の よう に 異な る . 


END これ は 「 プ ログ ラム の 実行 は ここ で 終る 」 と いう 意味 で 。 


実行 再開 の 必要 の な い 場 合 (プロ グラ ム の 終点 ) に 用 いる . 


FORTRAN に お いて は , 包 ND が 「 プ ログ ラム の 最後 の 行 」 と いう 特 
別 な 意味 を も っ て いる が ,。 BASIC の BRND は その よう な 意味 を も た な 
い 。 し た が っ て , BEND を 何人 箇所 に 書い て も よく 。 一 つも 書か な く て も よ 
い 。 こ れ ま で に 例示 し た プロ グラ ム の よう に , BENDE? T, 行 
番号 最大 の 文 に 来れ ば 自然 に 実行 終了 と な る 。. 


STOP これ は 「 プ ログ ラム の 実行 を ここ で 一 度 中 断 す る 」] と いう 
意味 で 。 再開 は 
CONT 


で 指示 する . 


STO 文 で 停止 する と 「 ピ ッ 」 と 電子 音 が 鳴り , 
Break іп STOP 文 の 行 番 号 
と いう メッ セー ジ が 表示 され る . 


PAUSE これ は 「 こ こ で 一 時 停止 し , 指定 時 間 経 過 後 , 自動 的 に 
実行 を 開始 せよ 」 と いう 文 で 。 停止 時 間 の 長き は 


PAUSE 停止 時 間 の 長き 
(単位 は 0.1 秒 。 値 は 最大 255) の 形 で 指定 する . 


PAUSE 文 は 普通 の BASIC に は な い . ポケ コン PC-1500 に は PAU 
SE 文 が ある が 本 機 の PAUSE と 機能 が 異な る . 
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4 初心 者 は こ 
3.14 整数 演算 お よび 倍 精 度 演算 


本 機 の BASIC で 扱う こと の で きる デー ター の 種類 に は 。 大 別して 


| ИЕ = 
(冬季 デー ター 
が ある . この 内 。 数 値 デ ー タ ー の 扱い 方 に 関し て は 
整数 型 (演算 が 速く 。 記憶 場所 が 少な く て 済む ) 
実数 型 (普通 の 扱い 方 ) 


倍 精 度 実数 弄 ( 高 精度 の 計算 が で きる ) 
の 区 別 が あり ,。 文字 デー ター に 関し て は 。 

文字 列 弄 ( 英 数 字 の 文字 列 を 可変 長 の 形 で 扱う ) 
が ある . 

バイ ト 本 機 の 内 部 で デー ター を 扱う 際 の 最小 単位 は 8 ビット (2 

進 法 の 8 杵 ) で これ を 1 バイ ト (byte) と いう . 基本 的 な 演算 , 記憶 装 
置 の 出し 入れ , 周辺 装置 と の 間 の デー ター の や り と り 。 な ど は すべ て ( 基 
本 的 に は ) 1 バイ ト 単 位 で 行なわ れる . 


1 バイト 8 ビット 


整数 型 。 整数 型 の デー ター は 2 バイ ト (16 ビ ッ ト ) の 2 進数 で 表現 
54.5. 16 ビ ッ ト の 内 の 1 ビッ ト は 符号 を 表す の に 用 いら れる . また 負 
数 は 補 数 * の 形 で 表現 され る . その た め 。 整数 型 で 扱う こと の で きる 値 の 
ШШЕ: 
-52768 ~ +352767 
と な る . (5 万 円 と いう よう な 大 金 は 整数 型 で は 扱え な い の で 注意 !)。 


2 バイ ト 
に 


ж いわ ば 「 ゲ タ を は か せ て 正 数 に 直し た 形 ]」 の こと . ЖО) BASIC の 整 
数 型 の 場合 , 負数 に は 2' =65536 を 加え て 表し て いる . こう する と 演算 処理 が 
簡単 に な る の で ある . 
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実数 型 本 機 の 実数 型 は 普通 の バ パソ コン より も る 桁 数 が 長い . 実数 型 
の デー ター は 。 指数 部 ( 位 ど り を 仮数 部 メ 2 指数 の 形 で 表す ) 1 バイ ト と 
仮数 部 ОН ЖИЕ Г] О. жжжжжжж ЮЖ СЕЗ) 4 バイ ト の 合計 5 
バイ ト で 表現 きれ , 処理 さき れる. や は り 2 進 法 で ある . 


хим ышы де ан 


қ % 40 ピ ッ ト 
指数 部 仮数 部 


表現 で きる 数 値 の 範囲 (絶対 値 ) は (1/2)x2 5-10 2%) о, (1- 
2 28) х2!# = 10 £ T, БЕО で, 有効 数 字 は 2 進 法 31 桁 で ある か ら 10 
進 法 換算 約 8 桁 で ある . 

倍 精度 実数 型 倍 精 度 実数 型 の デー ター は 。 指数 部 1 バイ ト 。 仮数 
部 7 バイ ト , 合計 8 バイ ト で 扱わ れる . これ も 2 進 法 で ある . 


ыу 8 バイト 
倍 精 度 実 数 弄 指数 部 атын 


Е 仮数 部 


ll 
А 


表現 で きる 数 値 の 範囲 (絶対 値 ) は 約 10 "から 約 10* まで , 有効 数 字 ( 仮 

数 部 の 長き さ ) は 2 進 法 55 桁 で ある か ら 10 進 法 換 算 約 16 桁 で ある . 
組込み 関数 の 倍 精度 演算 本 機 の 組込み 関数 (SIN, СОЗ, LO 

а, EXP, SQR な ど ) は , 引数 が 倍 精度 型 な ら ば 関数 も 倍 精度 で 計算 S 

れる 。. 

( 例 ) 


19 INPUT "Х=";х 

29 LPRINT сга х= 。5 

30 LPRINT "=іп<х) =";51ІМСХ#) жіп (х) = . 479425538694203 
48 LPRINT "соѕ (х) ="; С05 (Х#) соѕ (х) = .877582561890З727 
59 LPRINT "+ап х) ="; ТАМ) +ап (х) = .5463024898437905 
68 LPRINT "ехр (х) ="; ЕХР (Х#) ехр (х) = 1. 54872 1270700128 
70 LPRINT "109 <х) =";106 ‹Х#) 109 х) <-.6931471805599453 
80 LPRINT "506 (х) =";508 (Х#) 506 (х) = . 707106781 18455475 
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3.15 属性 文字 と 型 宣言 


変数 の 型 の 種別 を 指定 する 方 法 は 
属性 文字 を 付け る 
型 宜 言 に よる 
の 二 通 りあ る . 前 者 の 場合 は , 普通 の 変数 名 の 後に 次 の よう な 属性 文 
字 ( 型 の 種類 を 表す 文字 ) を 付け る . 
整数 型 は % ( 例 ) А% 


実数 型 は ! ( 例 ) А! 

倍 精 度 実数 型 は # ( 例 ) АЖ 
後者 の 場合 は , 次 の よう な 型 宣言 文 に より , 変数 名 の 先頭 の 文字 ( 頭 
文字 ) と 型 の 対応 関係 を 指定 する . 

整数 型 は DEETINT 先頭 の 文字 

実数 型 は DEESNG 

倍 精度 実数 型 は DEFDBL 


( 例 ) 「 エ で 始ま る 変数 名 は すべ て 整数 型 」] と いう こと を 宣言 する に は 
DEFINT I 
と 書け ば よい 。 な お , 次 の よう な 書き 方 も で きる 。 た と えば 
DEFDBL D,8S,W 
これ は 「D ま た は 8 また は W で 始ま る 変数 名 は すべ て 倍 精 度 実数 型 」 と いう こ 
と を 意味 する . また 
DEFINT І-М 
と いう よう な 書き 方 も で きる . これ は 「 ア ルフ ァ ベ ッ ト の エ 1 エ から MY まで の 文字 
で 始ま る 変数 は すべ て 整数 型 」] と いう こと を 意味 する . 


特に 型 の 指定 が な けれ ば , 変数 は すべ て 実数 型 と し て 扱わ れる . ЖШ 


宣言 と 属性 文字 に よる 指定 が 一 致し な い 場 合 は 属性 文字 が 優先 され る . 
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数 値 定数 の 型 を 指定 する に は , 数 値 の 後に 左記 と 同じ 属性 文字 を 付け 
る の が 最も 確実 で ある . 


( 例 ) 5% 整数 型 の 5 
* | 実数 型 の 5 
5# 倍 精度 実数 型 の 5 


数 値 定数 は 指数 部 を 付け た 形 で 書く こと が で きる . 書き 方 は 

符号 数 字 の 列 . 数 字 の 列 E 符号 数 字 の 列 
また は 

符号 数 字 の 列 . 数 字 の 列 D 符号 数 字 の 列 
で それ ら の 

世 ま た は D よ り 左 が 仮数 部 (いわ ば 有効 数 字 ) 

世 ま た は D よ り 右 が 指数 部 
T, 18 (仮数 ) X10( 指 数 ) 
を 表す . この よう な 形 で 書か れ た 定数 の 型 は 次 の よう に な る . 

世 を 付け れ ば 実数 型 

D を 付け れ ば 倍 精度 実数 型 
є A どの 型 に つい て も , これ まで に 説明 し た の と 同じ 形 で 。 代 
入 を し た り , 配列 を 用 いた り , 入出 力 を 行なっ た りす る こと が で きる . 
正式 の 書き 方 は 

LET 代入 先 の 変数 名 = 式 
で ある が L 忌 中 を 省略 し て 

代入 先 の 変数 名 = 式 
と 書い て よい . 代入 先 の 変数 名 の 型 と 式 の 型 が 一 致し て いれ ば 全く 問題 
な い が 。 一 致し て いな く て も 

整数 型 実数 型 倍 精度 実数 型 
の 間 で は 自動 的 に 変換 が 行なわ れる (まず , 式 の 値 を 計算 し , 代入 先 の 
変数 名 の 型 に 合わ せ て 変換 し , その 上 で 代入 を 行なう ). 整数 型 に 変換 す 
る 際 , 小数 部 は 四捨五入 され る . 
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3.16 文法 細則 


以下 て 説明 する 事項 は 。 知ら な けれ ば 知ら な く て も 済む こと で ある が , 
覚え て お け ば 役に立つ 。 


ー 変 数 の 初期 値 は 0 プロ グラ ム の 実行 開始 時 点 に お いて , すべ て 


の 変数 の 値 は 0 に な っ て いる . 


( 例 ) 何 も 代 入 し な いで PRINT А を 実行 すれ ば O が 出力 され る . 


余分 な 空白 は 無視 本書 で は 。 プロ グラ ム を 読 を 易く する た め 。 
文 の 中 に 空白 を た くさ ん 入れ て いる が , BASIC で は (REBM 文 お よび 
2 重 引 用 符 で 囲ま れ た 部 分 を 除き ) 空白 は 文法 上 , 特別 な 意味 を も た 
な い (無視 さき れる) と いう こと に な っ て いる . 

た だ し , 予約 語 (た と えば MOD, THEN, AND な ど ) の すぐ 左 に 


変数 名 を 書く と き は 間 に 1 字 以 上 の 空白 を 入れ る 必要 が ある . 
( 例 ) PRA MOD EL は 「PRA- テ EL の 余り 」 
PRAMODEL は 「PRAMODEL と いう 名 前 の 変数 」 


省略 記法 1 ? 令 の 略記 法 に 用 いら れ , РКІМТ を 表す . 
( 例 ) ? А,В,С 


? 印 は 直接 実行 形式 の 場合 に よく 用 いら れる . た と えば , 変数 A の 内 
容 (現在 記憶 きれ て いる 値 ) を 調べ た いと き に 
Та 
と や っ て 表示 させ た り , ァ / 3 の 値 を 知り た いと き に , 電卓 が わり に 
92 «/% 
と いう ぐあい に 用 いた りす る 。 
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マル チ ・ ス テー トメ ント ー つ の 行 に 三 つ 以 上 の 丈 を 書く 《 こと が 
で きる . これ を マル チ ・ ス テー トメ ント と いう 。 二 つ 以 上 の 文 を 書く 


合 は , 文 の 間 を コロ ン で 区 切る . 
( 例 ) 10 INPUT А,В : PRINT А-В 
行 番号 ー つ の 文 区 切り 記号 も う 一 つの 文 


[解説 ] 本 書 で は , これ まで 常に , 一 つの 行 に 一 つの 文 を 書い て きた 。 それ が 
伝統 的 な BASIC の 標準 的 な 書き 方 で ある . 1 行 1 文 な ら ば ,。 すべ て の 文 に 行 
番号 が 付い て お り , それ に よっ て 編集 し た り , 行先 を 指示 (4 章 で 説明 する ) 
し た りす る こと が で きる , 初心 者 は な る べく そう いう 形 で 書く 方 が よい と 思 
%, 

し か し ,。 少し 慣れ て き て 。 あ る 程度 長い プロ グラ ム を 作る よう に な る と 。 1 
行 に いく つも の 文 を 書き た く な る . それ は 次 の よう な 理由 に よる 。. 

1) ディ スプ レイ の 1 画面 に な る べく た くさ ん の 文 を 表示 で きる 方 が デ 
バッ ク を し 易い . 

2) 処理 の 内 容 に よっ て は 。 横 に 並べ て 書く 方 が 自然 な 場合 が ある . た と え 
ば , 複素 数 の 計算 を する と き 。, 実数 部 の 処理 と 虚数 部 の 処理 を 並行 し て 書く と 
見 易い . 

3) 他 の プロ グラ ミン グ 言 語 な ら ば 一 つの 文 で 書け る の に BASIC だ と 複 
数 人 箇 の 文 で な いと 書け な いこ と が ある . そう いう と き ,。 一 つの 機能 的 まとまり 
を 示す た め に 1 行 で 書く と 見 易く な る . 

4) 1 行 1 文 に する より も ,。 マル チ ・ ス テー トメ ント に する 方 が 。 記憶 場所 
を いく ら か 節約 で きる . 

5) 文 の 挿入 の 一 手段 と し て 使え る . 


[注意 ] REM 文 と 後述 の TE 文 に 関し て は 「 行 の 終り まで を 一 つの 


文 と みな す 」 と いう 扱い に な っ て いる の で 。 REM 文 や TE 文 の 右 に マ 


ル チ ・ ス テー トメ ント の 形 で 他 の 文 を 書く こと は で き な い 。 


( 例 ) 10 REM "example" : INPUT А 
の 「TNPUT AJ の 注釈 の 一 部 と みな され る 。. 
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小数 に 関す る 注意 整数 の 加減 算 お よび 乗算 は 2 進 法 で 計算 し て 
も 10 進 法 で 計算 し て も 全く 同一 の 結果 が 得 ら れる が , 小数 に 関し て は 。 


2 進 法 で 計算 し た 結果 と 10 進 法 で 計算 し た 結果 が (有限 桁 数 で 計算 す 
る と ) ご くわ ず か で は ある が 違っ て くる の て で 注意 を 要する . 


原因 は 10 進 法 の 0 .1 が 2 進 法 だ と 
0.00011001100110011001100… 
と いう 無限 小数 に な り , 有限 桁 数 で は 正確 に 表現 で き な い か ら で あ る . 
その た め 。 た と えば 0.1 を 10 箇 加え を て も , ちょ うど 1 に は な ら な い 。 


( 例 ) 10 =.1 
20 Х=А+А+А+А+А+А+А+А+А+А 
30 Е-х-1 
40 PRINTE 


RUN 
4.6566129Е-10 


4 制御 文 一 一 枝分かれ と くり か え し 


4.1 ж 説 


BASIC の 文 は 原則 と し て 行 番号 の 順に 実行 きれ る が , 
ある 行 ま で スキ ッ プ し た い (また は ,。 ある 行 に も どり た い ) 
条件 に 従っ て 分 岐 し ,。 それ ぞ れ 別 の 処理 を し た い 
プロ グラ ム の 一 部 分 を くり か え し 実行 し た い 
と いう 場合 が ある . その た め に , BASIC に は 次 の よう な 文 が ある . ま 
ず 。 指定 し た 行 に 進む 文 と し て は 


@ОТО ーーーーーーーー (行き っ ぱな し ) 
СОНВЦПЕОС-------е5з525-- 行っ て も ぎっ て さる 

分 岐 に 関し て は 
на ега 条件 式 に よっ て 分 岐 
ель ее 番号 に よっ て 分 岐 

くり か え し に 関し て は 
ЕОв--МЕХТХ------ 一 定 回 数 の 反復 
REPEAT~UNTIL 文 … 条件 式 が 成立 する まで 反復 
WHILE~WEND 文 ーー 条件 式 が 成立 し て いる 間 反 復 


が ある 。 本 機 で は , GOTO 文 , GOSUB 文 , IF 文 , ON 文 な どの 行先 
の 指定 に ラベ ル (label) を 用 いる こと が で きる (も ちろ ん 普通 の BASIC 
と 同様 に 行 番号 で 指定 する こと も で きる ). ラ ベル は 英字 で 始ま る 英 数 字 
の 綴り を 2 重 引用 符 で 囲ん で 表す . 

( 例 ) "SAPPORO" 
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4.2 GOTO 文 


無 条件 に 特定 の 行 ま で スキ ッ プ し た り 。 も どっ た りす る に は GOTO 
Ж (英語 の “Go to 一 .” の 意味 で ある か ら [goutu:] と 読む . BASIC で は 
GO と TO の 間 に 空 白 を 入れ な い の が 普通 ) を 用 いる . 書き 方 は 


GOTO 行先 の 行 番号 また は ラベ ル 


( 例 ) GOTO 100 「 行 番号 100 の 文 に 行け 」 と いう 意味 
GOTO "'SAPPORO" 


GOTO 文 の 応用 (1) 同じ プロ グラ ム の 反復 実行 一 一 


プロ グラ ム の 最後 の 所 か ら 最 初 に も どる 


よう に GOTO 文 を 書い て お け ば 。 停止 ボタ 
ン を 押す まで 何 回 で も 反復 実行 で き る. 


10 INPUT "A=";A 
20 INPUT "В=";В 
39 C=A+B 

40 PRINT "А+В=";С 
58 GOTO 10 


GOTO 文 の 応用 (2 ) 一 一 値 を 少し ずつ 変え て 反復 一 一 
計算 し て 出力 する に は 。 次 の よう に すれ ば よい . 


10 N=1 

20 S=N^2 

30 К-1/М 

48 PRINT М,5,К 
59 N=N+ 1 

る 9 GOTO 20 


( 別 解 ) 19 N=1 
20 LABEL "KURIKAES 1 " 
30 S=N^2 
40 R=1/N 
50 PRINT №, 5,6 
る 9 N=N+ 1 
78 GOTO "KURIKAESI" 


N? と 1/N の 
値 を 計算 し て 
出力 する . 


N に 1 を 加え る 
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プロ グラ ム を 途中 か ら 始 め る 方 法 em ラー な で デ ログ ラム が 停 
止 し た と き , 中 間 結 果 を 保持 し た まま , 途中 の 文 か ら 実行 を 再開 させ 
る こと も で きる . そこ に は GOTO 文 を 直接 実行 形式 で 用 いて 

GOTO 実行 開始 行 番号 また は GOTO ラベ ル 


と すれ ば よい 。 たち えば, 


абтб зоо 


と 指令 すれ ば , 行 番号 300 の 所 か ら 実 行 が 再開 され る . 


СОТО 文 の 応用 (3 ) 一 一 入口 を 二 っ 作る 一 一 
( 例 ) プロ グラ ム の 普通 の 
入口 の ほか に 「 テ スト 用 の 
入口 」 を 設け 。 いち いち テ 
スト ・ デ ー タ ー を 入力 し な 
く て も 標準 的 な テス ト ・ 
デー ター が 設定 され る よう 
に し て お く と 便利 で ある . 


10 REM --- normal entry --- 

-20 INPUT A,B,C 

30 GOTO 60 

40 REM --- special entry for program test 一 一 一 
50 А=2 : B=10 : С-12 

60 REM --- computation --- 

70 Х-(-Вч50Р(В72-4жАжС))/(2жА) 

80 PRINT Х 


RUN 50 | で 開始 する と , 方 程 式 
2x? 二 10x 十 12 = 0 
の 根 が 計算 さき され, 出力 され る . 


ラベ ル の 付け 方 ラベ ル は LABEL 文 で 書く . 書き 方 は 
LABEL リラ ベル リ 


右 に 文 を 書く と き は 文 と の 間 に : 印 を 入れ る . マル チ ・ ス テー トメ 
ント の 途中 に 書く こと も で きる 。. 
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4.3 IF 文 に よる 分 岐 


ある 条件 の と きだ け , 指定 し た 所 に 進む よう に する に は , 次 の よう 
に 書く . 
TE 条件 式 ТНЕМ 行先 
これ を 次 の よう に 書く こと も で きる 。. 
IF 条件 式 GOTO 行先 
条件 が 成立 し な い 場 合 の 行先 を 指定 する こと も で きる . 書き 方 は 
TE 条件 式 THEN 行先 ELSE 行先 
で ある . 行先 は 行 番号 また は ラベ ル で 指定 する . 
ІЕ--ТНЕМ,ІЕ--абтбО жән 


条件 式 成立 ? > や = 指定 され た 行先 に 進む 


NO 


次 の 文 に 進む 


IF~THEN~ELSE 概念 図 


«яна ? つっ ュー 


THEN の 行先 へ ELSE の 行先 へ 


[注意 ] THEN や ELSE や GOTO の 左 に は 原則 と し て 1 字 以 上 の 空白 を 
入れ な けれ ば ぼ ば いけない 。 


( 例 ) IF А-В GOTO "SAPPORO" 
IF C<D THEN 500 ELSE 500 
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4,4 条件 式 の 書き 方 


= 条件 式 と し て は 次 の よう な も の が 書け る . 
1) 二 つ の 式 を 等 号 ま た は 不 等 号 で 結ん だ も の . 
( 例 ) А-В M+1>N ABS(E)<0.01 
た だ し , 等 号 , 不 等 号 は 次 の よう に 書く . 
普通 の 数 学 記 号 BASIC の 書き 方 
等 し い - 
等 し く な い <>» また ば >g 
より 小さき さい < 
等 し いか また は 小さ きい <= また は -< 
等 し いか また は 大 きい >= また は => 
より 大 きい > 


МИА л + 


V 


2) 等 式 ま た は 不等式 (すなわち 上 記 1 ) の 形 ) に (必要 な ら ば ) 
NOT を 付け それ ら を AND や OR で 結ん だ も の . た だ し , 


AND は 「 か つ 」 両方 と も 成立 する こと 
бв は 「 ま た は 」 少な く と も 一 方 が 成立 する こと 
NOT は 「 で な い 」 否定 

を 表す . 

( 例 ) A=0 OR B=O 

3) 上 記 2 ) の 形 を カッ コ で 囲み , (必要 な ら ば ) NOT を 付け , それ 

ら を AND や OR で 結ん だ も の . な お , カッ コ を 省略 し た 場合 に は 
NOT AND OR 

の 順に 結合 され る . 

( 例 ) МОТ А OR В AND С は 次 式 と 同等 
(NOT А) OR (В AND С) 


[注意 ] АМР, Он, NO の 左 は 必ず 1 字 以 上 の 空 折 を 入れ な けれ ば いけ 
жі», た だ し 隣接 する 文字 が カッ コ の 場合 は 空白 を 入れ な いで よい , 
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2 次 方 程 式 
ах?--ӛх--с = 0 
DIR ( 実 根 の 場合 も あり 複素 根 の 場合 も ある ) を 計算 し て 出力 する プ 
ログ ラム を 作れ 。 


2 次 方 程 式 の 根 ( 2 ) 


[解答 ] 2 次 方 程 式 の 根 の 公式 を 用 いる . まず 判別 式 
D = b?—4ac 


の 値 を 計算 し .。 つい で に 。 あと の 便宜 を 考え て 

5--85/(2а) Т = VIDT /(2a) 
の 値 を 計算 し て お いて , 次 の よう に 処理 する . 
[流れ 図 ] 


係数  、 の,c を 読み 
D, S, ア の 値 を 計算 


4,4 


条件 式 の 書き 方 

КЕМ 

КЕМ | | 
КЕМ | シシ "ホワ テイ シキ | 
REM | АжХ^2+ВжХ+С=0 1 
РЕМ |І 7 コン 7 も モト メル 。 | 
REM | | 
REM ーー 
РЕМ 

PRINT "ケイ スウ э イレ アテ クタ "サイ 。 


INPUT "А=',А 
INPUT “В-7,В 

INPUT "С=",С 

PRINT 7247; 

КЕМ --- パン A" ツ ラキ ーーー 
0-В”2-4жАжС 

REM --- 9( 119 --- 
6--В/(2жА) 

REM --- 974 2 29 --- 
T=SQR(ABS(D) )/(2xA ) 

КЕМ --- "アイ 97 --- 


IF D>0 GOTO 290 

IF 0=0 GOTO 340 

REM --- П<0 / Л”?4(3%з1У) --- 
PRINT "(キョ コン )" 

PRINT “Хіт“;6; "+"35Ts "i 

PRINT "X2=";S;"-";T;'i 

END 

КЕН --- DO AN TAS SIA --- 
PRINT "(3 “92 у)" 


PRINT "X1="』S-T 
PRINT: *X2=";S+T 

END 

REM --- D=0 ノル "アイ (トウ コン ) --- 
PRINT "( ト 9 コン >) 

PRINT *Х='; 

END 


61 
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4 5 IF 文 に よる 場合 分 け 処理 


プロ グラ ム の 流れ は 。 枝分かれ し て , それ ぞ れ の 処理 を 行なっ て 。 
また 合流 する 。 と いう 形 が よく ある 。. 


条件 式 成立 ? 


次 の 処理 に 進む 


その よう な 場合 , 処理 が 比較 的 簡単 (短い プロ グラ ム で 書け る ) な ら 
ば それ を IF 文 の 中 に 書く こと が で きる 。 書き 方 は , 

IF 条件 式 THEN 処理 A ELSE 処理 B 
また は その 後半 (BLSE) “осе 

TE 条件 式 THEN 処理 A 
で ある . ここ で て 処理 A と 書い た の は 「 条 件 式 が 成立 し た と き に 実行 す 
べき プロ グラ ム 」, 処理 B と 書い た の は 「 条 件 式 が 成立 し な か っ た と き 
に 実行 すべ き プ ログ ラム 」 の こと で 。 実際 に は 

ー つ の 文 
また は , マル チ ・ ス テー トメ ント 。 すなわち 

いく つか の 文 を コロ ン ( : 印 ) で 区 切っ て 1 行 に 書い た も の 
の 形 で 記述 する . 
( 例 ) IF Х<0 THEN マーO ELSE Y=X 

ТЕ N=1 THEN І=0 : 7-О : К-О 

IF А<В THEN PRINT А ELSE PRINT В 


45 TP 文 に よる 場合 分 け 処 理 63 
例題 2 最大 公約 数 

正 の 数 М, М の 最大 公約 数 を 計算 する プロ グラ ム を 作れ . た だ し 
М =М と する . 


[解答 ] ユー クリ ッ ド の 互 除法 を 用 いる と よい . その 手順 を 流れ 図 の 形 
で 書く と 次 の よう に な る . 
АП 


MM を N で 割っ た 
余り を だ と する 


終了 時 の の 値 が 
ЕТ (aesa. 


10 INPUT "М, М= "М, М 
20 К-м МОО М 
30 IF R=9 THEN PRINT "GCD="iN : END 


40 M=N : N=R 
50 GOTO 280 


41 /47 と の 最小 公 倍 数 を 求め る プロ グラ ム を 作れ . 
[ヒン ト ] 次 の 計算 式 を 用 いれ ば よい . 

(最小 公 倍 数 ) = M・N /( 最 大 公約 数 ) 
た だ し 上 の プロ グラ ム で は MM と W の 値 を 計算 の 途中 で 書き か えて し まっ て 
いる か ら , その 計算 に 入る 前 に 47 と の 値 (また は 積 ММ の 値 ) を どこ か 
こ 記 憶 き せ て お く 必 要 が ある . 
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例題 3 10 行 ご と に 停止 
#== 1„ の に つつ MS で 


Шү 


の 値 を 計算 し て ディ スプ レイ に 表示 する プロ グラ ム を 作れ . 表示 の 際 , 
10 行 ご と に 停止 きせ , ゆっ くり 見 られ る よう に せよ . 


[解答 ] n = 10,20,30,…, す な わ ち 10 の 倍数 の と き に 停止 きせ れ ば よ 
い 。 7 が 10 の 倍数 で ある か どう か を 調べ る に は 
IF (М MOD 10)=O ТНЕМ … 
п を 10 で 割っ た 余り 
で 判定 すれ ば よい 、. 


19 N=1 

20 A=(1+17/N)^N 

30 IF (N MOD 10)=0 THEN STOP 
48 PRINT М, а 

50 N=N+1 

68 GOTO 20 


停止 後 の 実行 再開 は 
CONT 
(また は , (внігт|-(Е5) に よっ て 行なう . 


[ 別 解 ] 次 の よう に すれ ば , いち いち 再開 の 操作 を し な いて 済む 
19 N=1 
20 A=(1+1/N)^N 
30 PRINT N; A 
48 IF (М MOD 10) =0 THEN PAUSE 50 
50 N=N+1 
る 9 GOTO 28 
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ーーーーーーーーーーーーーーーーーーーーーー- IF 文 の 演習 問題 ------ー-ーーーーーーーーーーーーーーー- 
4,2 次 の 内 , IF の 書き 方 と し て 正しい も の は どれ か . 
IF A=B+C GOTO 30 
IF (A=B) GOTO 30 
IF МОТ А-В абтб 30 


4,3 (妥当 性 の チェ ッ ク ) 年 齢 を 入力 し た と き , その 値 が 「 あ り 得 な い 値 」 
(た と えば 負数 と な , 200 以 上 な ど ) で な いか どう か を 調べ る プロ グラ ム を 作 


れ . 


4.4 (例外 処理 ) 例題 1 の プロ グラ ム を 次 の よう に 改造 せよ . 
1) а-0,5-ғ-0 で も 計算 で きる よう に する 。. 

2) a= = 0,с+0 で も 計算 で きる よう に する 。 
З3Ууа-ӛ-с-0%5 , エラ ー・ メ ッ セ ー ジ を 出す . 

4.5 (大 口 割り 引き ) ある 店 の カセ ッ ト ・ テ ー プ の 値段 は 次 の よう に な っ 


て いる 。 
バラ (1 本 単位 ) だ と , 330 円 (1 本 に つき ) 


1% (10 本 入り ) 13, 3000 円 (1 箱 に つき ) 
z 本 の 値段 を 計算 する プロ グラ ム を 作れ . 


4.6 (機能 選択 ) 三角 形 の 面積 を 計算 する 公式 は いろ いろ ある が , まず 公 
式 番号 ヶ を 読み 。 
2z 三 1 な ら ば , 2 辺 の 長き ?。 の と その な す 角 の より 
S = (ab sin 0) /2 
z 王 2 な ら ば 。 底辺 の 長き < と 高き さん より 


5 = аћ/2 
z 三 3 な ら ば , 3 ZOR a,b,c より 。 ヘロン の 公式 


S = マソ s(s 一 @) (5— Б) (s 一 と ) s = (а--5--с)/2 


で 面積 S を 計算 する プロ グラ ム を 作れ . 
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4.6 FOR-NEXT 


一 定 回 数 の くり か え し を 行なう に は OR 文 を 用 いる . これ は 次 の 
形式 で 書く . 

FOR 制御 変数 名 始 値 TO 終値 ӨТЕР 増分 
これ は 「 制 御 変 数 の 値 を 始 値 か ら 終値 まで 増分 ずつ 変え て 。 以下 の 部 
分 を くり か え し 実行 せよ ]」 と いう 意味 に な る 。 増分 1 の 場合 は 省略 し 
© 


FOR 制御 変数 名 三 始 値 ТО 終値 
と 書い て も よい .。 くり か えす 部 分 の 最後 に は 


NEXT 制御 変数 名 

を 書く 。 これ は 「 制 御 変数 の 値 を 次 の 値 (すなわち , 現在 の 値 プ ラス 
くり か え し 部 分 の 最初 に も どれ . た だ し , 制御 変数 

の 新しい 値 が 終値 を 越え た な ら ば 。 くり か え し を 終了 し て NX の 
次 の 文 に 進め ] と いう こと を 表す 。 な お 

始 値 。 終値 , 増分 は 必ず し も ゃ 整数 で な く て も よい * 

始 値 , 終値 。 増分 と し て 変数 や 式 を 書い て も よい 

増分 は 負 で も よい 


( 例 ) の 値 を 1 か ら 5 ま で 変え て N(N+1)2 の 値 を 計算 し 出力 


する に は 次 の よう に 書け ば よい . 


19 FOR N=1 ТО 5 
20 PRINT N, SUM CN? 
30 NEXT N 


RUN 


— н O 0) н 


хаһо»ю е 
u o 


0 


ж た だ し 整数 で な いと , 丸め 誤差 の た め に , くり か え し 回 数 が , 意図 し た 
と お り に な ら な いこ と が ある の で ,。 な る べく 整数 を 用 いる 方 が 安全 で ある . 
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FOR~—NEXT 文 


概念 図 制御 変数 に 始 値 を 代入 
制御 変数 終値 7 


くり か え し 
実行 すべ き 
部 分 


制御 変数 に 増分 を 加算 


注 2 
NEX 呈 文 の 次 の 文 に 進む 


注 1) 増分 が 負 の 場合 に は , 終了 判定 の 不等式 の 向き が 逆 に な る . 


注 2 ) この と き 制 御 変数 の 値 は ,「 最 後に 実行 し た と き の 値 プ ラス 増分 」 に 
な っ て いる 。 


( 例 ) 

10 INPUT "Ni=",N1 RUN REN 

20 INPUT "N2=",N2 N1 =5 М =2 

30 FOR N=N1 ТО М2 N2 =7 N2=1 

49 PRINT N 5 シュ ウリ ョ ウ コ * 2 
50 NEXT М ó ок 

68 PRINT "シュ ウリ ョ ウゴ " {М 7 


シュ ウリ ョ ウ コ ~ 8 
ок 
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例題 4 数 表 を 作る 
1 か ら 10 ま で の 整数 の 2 乗 と 逆数 の 数 表 を 作成 する プロ グラ ム を 作 


れ . 


[解答 ] の 値 を 1 か ら 10 ま で 変え て 
М N? 1/N 
の 値 を 計算 し 出力 すれ ば よい . 


10 PRINT "М", "М^2", "1/4" 
20 FOR N=1 ТО 10 


30 PRINT N; N^2, 1/N 
40 NEXT N 

[出力 例 ] 
1 1 1 
2 4 .5 
з ? . 33333333 
4 16 .25 
5 25 .2 
6 36 ・ 16666667 
7 49 . 14285714 
8 る 4 .125 
? 81 «11111111 
10 108 ‚1 


[備考 ] この プロ グラ ム だ と , 上 の 出力 例 の よう に , 整数 が 左 づ め に な 
0, 右 に 大 き な 空 白 が で きる . 右 づ め に し て 適切 な 桁 数 で 出力 する に は 
PRINT USTNG 文 (6.6 節 参照 ) を 用 いる 必要 が ある . 
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FOR 文 の 演習 問題 --- 
4.7 (数 表 を 作る ) 次 の 数 表 を 出力 する プロ グラ ム を 作れ . 
1) の 9 ニ = ニ 0' か ら 90' ま で 10' お き の 

sin の сов の tan の 
i) * 三 0.1 か ら 2.0 ま で 0.1 お き の 常 用 対数 logio x. 
ii) zz 三 1 か ら 10 ま で の n! 


-2- 


4,48 (料金 早見 表 ) が ガソリン ・ ス タン ド 用 の 料金 早見 表 を 作り た い . 単価 を 
4 種類 (製品 の 種類 な ど に よっ て 異な る . た と えば , リッ ター あたり 138 円 , 145 
円 ,155 円 。170 円 ) 読 み 込み 。 1 リッ ター か ら 0.1 リ ッ タ ー お き に 30 リ ッ タ ー ま 
で の 料金 表 を 出力 する プロ グラ ム を 作れ . 


4.9 (複利 計算 ) 元 金 1 万 円 を 複利 で 運用 し た ら 1 年 後 , 2 年 後 , …, 20 年 
後 い くぐら に な る か (元利 合計 ) の 表 を 作り た い . 3 段階 の 年 利率 (た と えば , 
3.5%, 5%, 6%) を 読み 込み , 上 記 の 表 を 出力 する プロ グラ ム を 作れ . 


4.10 (積立 預金 ) 毎年 1 万 円 を 積立 預金 し た ら , 1 年 後 , 24856, >>, 20 
年 後 の 元利 合計 が いく ら に な る か に つい て 。, 前 問 と 同様 の 表 を 出力 する プロ グ 
ラム を 作れ . 


4.11 (年 金 ) 退職 金 1000 万 円 を 原資 と し , 毎年 100 万 円 ずつ 引き 出し て 使 
用 し た と し て , 10 年 後 ま で の 毎年 の 元利 合計 を 計算 する プロ グラ ム を 作れ . た 
だ し 預入 れ 時 点 に は 引き 出さ きず, 1 年 後 か ら 引 き 出 す も の と する . また , 利率 
は 問題 4.9 と 同様 に 3 段階 の 値 を 指定 で きる よう に する . 


4.12 (極限 値 ) 数 値 計 算 に よっ て 数 列 の 極限 値 の 厳密 な 値 を 求め る こと 
は で き な い が , 極限 値 に 近い 値 を いろ いろ 計算 し て みる こと に よっ て 極限 値 を 
推測 する こと は で きる . た と えば < 一 limx* ФЕЬ СІЗ, хь = 10 "に 
対す る an = хх" DEZ n= 1,2,3。… に 対し て 計算 し て みれ ば よい で あろ う . 
п 三 1 か ら 10 ま で に 対し , 上 記 an の 値 を 計算 し て 出力 する プロ グラ ム を 作れ . 


また < = ーー に つい て 同様 な プロ グラ ム を 作れ . 
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4.7 多重 の ルー プ 


FOR~NEXT に よる ルー プ (loop, くり か え し ) 3, 何 重 に も 入れ 
子 の 形 で 行なう こと が で きる 。. 
例題 5 組合 せ 
エ は 1 か ら 5 ま で , は 1 ユ か ら エ まで の 全部 の 組合 せ に つい て 。 分 


数 ゞ ノ ェ を 小数 に な お し て 表示 せよ . 


[解答 ] 
10 FOR 1=1 ТО 5 RUN 
29 FOR 7-1 TO 1 ісу олақ 
39 PRINT 73"/431:": 37/1 
40 NEXT Ј 127 э чт 
58 PRINT 27y る s: 
60 NEXT I 
70 END 1 / З = 33333333 
2 / 3 = , 66666647 
3/3=1 
1/4-«.25 
2/4 = .5 
3/4 = .75 
4/4 = 1 
1/5 = 。2 
2/5-.4 
3 /5-«.4 
4/5-:.8 
5 ノ / ノ 5 = 1 
0K 


[解説 ] 行 10 の FOR 文 で エ の 値 を 1 か ら 5 ま で て 変え て いる . これ に 対応 する 
NEXT 5131760025525, 4120--5005, 各 エ + の 値 に つい て 実行 され る . 1120 
の FOR 文 で は の 値 を 1 か ら エ まで 変え て いる . これ に 対応 する NEXT Xi} 
行 40 に ある か ら 。 行 30 の 文 は エ 。 す の 全部 の 組合 せ に つい て 実行 され る . 1730 
で は , まず J よ の 値 を 出力 し , 続け て ノ 印 , RIN, 次 に = 印 , 最後 に ゴ ノ 
I の 値 を 出力 する . 
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4.8 ж 列 


一 組 の デー ター に 番号 を 付け て 規則 的 に 並べ た も の を 配列 (array) と 
いう 。 これ は 要する に 表 (ひょう ) の こと で ある が , コン ピュ ー タ ー の 
用 語 で は 配列 と いう の が 普通 で ある . 

デー ター を 一 列 に 並べ た も の を 1 次 元 配 列 と いう . 

デー ター を 四角 に 並べ た も の を 2 次 元 配 列 と いう . 

デー ター を 立体 的 に 並べ た も の を 3 次 元 配列 と いう . 

eR AOR (以下 同様 に 何 次 元 で も 可 ) 

配列 名 配列 に は 名 前 を 付け て 扱う . この 名 前 を 配列 名 と いう . 配 
列 名 の 付け 方 (使用 文字 や 長き に つい て の 制限 な ど ) は 変数 名 の 付け 方 
と 同じ で , 先頭 は 英字 , その あと は 英字 また は 数 字 で あれ ば よい . 


1 


лыы 3 次 元 配列 


ЕЕЕ | 
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4.9 添字 付き 変数 


配列 に 属す る 個々 の デー ター の こと を 配列 要素 と いう . 配列 要素 は , 
配列 名 に 添字 (いい か えれ ば 番号 ) を 付け た 形 (これ を 添字 付き 変数 
と いう ) で 参照 する こと が で きる 。 その 書き 方 は 


配列 名 ( 添字 ) 1 次 元 配列 の 場合 

配列 名 (第 1 添字 。 第 2 添字 ) 2 次 元 配列 の 場合 
(以下 同様 ) で ある . 2 次 元 配 列 の 場合 , 第 1 添字 は 行 番号 , 第 2 添字 
は 列 番号 を 表す . 添字 に 負数 は 使用 で き な い が , 0 は 使用 し て よい . 


( 例 ) 配列 A 配列 X 
1% 2 列 目 ЗЯ 1 番目 
1 行 目 28.6 2 番目 
2 行 目 3 番目 
зан 8. 9 4 番目 


の 場合 , A(2,3 ) の 値 は 4.・7, А(5,2) の 値 は O.1, Х(1) の 値 は 
2.9, А(1,5)--Х(2) の 値 は 8 . 6 十 0 .8= ニ 9. 人 4 に な る 。. 


ЖТА 添字 と し て は 整定 数 の ほか 変数 名 や 式 を 書い て も よい . 
( 例 ) А(1,Ј) Х(2жҺ-1) 


添字 と し て 用 いる 式 の 形 に つい て の 制限 は な く , どん な 式 で も 書け る . 
( 例 ) C(I/J+SIN(X(N))+5.8) 
添字 に 端数 (小数 点 以下 ) が ある 場合 は 四捨五入 に な る . 


引 用 添字 付き 変数 は 普通 の 変数 と 全く 同様 に 使用 する こと が で 
きる . た だ し OR 文 の 制御 変数 と し て は 使用 で き な い . 
( 例 ) 式 の 中 に 書く А(І)-В 

代入 先 に 指定 А(6)-ХжҮ--2 

A J INPUT P(3) 

н カ PRINT 0(7) 


4.10 配列 の 富 


ШІ 
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4.10 配列 の 宣言 


DIM ж 配列 を 使用 する 場合 は , あら か じ め , 
DIM 配列 名 (寸法 ) 1 次 元 配 列 の 場合 
DIM 配列 名 (寸法 , 寸法 ) 2 次 元 配 列 の 場合 


以下 同様 
な どの 形 で , 配列 の 宣言 を 行なっ て お く < 必要 が ある . た だ し 寸法 が 10 
以下 の 場合 は 宣言 せ ず に 配列 を 用 いる こと が で きる . 


上 で 寸法 と 書い た の は 添字 の 上 限 の こと で , コン ピュ ー タ ー は その 値 
に 合わ せ て 配列 の 記憶 場所 を 割り 当て る . «НЕЗ, あら か じ め わ か っ て 
いれ ば その 値 を 定数 と し て 書く の で ある が , 

( 例 ) DIM А(5,5),Х(4),С(157) 

入力 デー ター や 計算 の 状況 に 合わ せ て 寸法 を 決め た い 場 合 に は , ここ に 
変数 や 式 を 書く こと も で きる 。 

( 例 ) DIM А(М,М),Х(М-1),С(М-М) 

[解説 ] BASIC の DTM 文 は 実行 文 (すなわち , 実行 時 に 機能 する 文 ) 
で あっ て , 配列 の 記憶 場所 の 割り 当て は , プロ グラ ム の 流れ が そこ に 到 
達し た 時 点 に お いて 行なわ れる . し た が っ て , 一 つの プロ グラ ム 中 に 同 
じ 配 列 の 宣言 が 2 箇所 以上 あっ て も よい (重複 し て 実行 きれ る こと が な 
けれ ば ). 
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4.11 配列 の 入出 力 


A カ パソ コン の BASIC に は 一 つの 命令 で 配列 の 全 要 素 の 入出 
力 を 行なえ る よう な 機能 は な い の で , 1 要素 ずつ の 入出 力 の くり か え し 
の 形 で プロ グラ ム を 書く 必要 が ある *. 

( 例 ) 小さ な 配列 ** の 入力 は 次 の よう に する と よい . 


10 DIM A(3,2) 

20 FOR I=1 TO 3 

20 PRINT І; 7%7а9Х ヲ イレ テ ワ 9" サイ" 
40 INPUT АСІ,1),АСІ,2) 

50 NEXT I 


この 場合 入力 デー ター は 1 行 分 ずつ ( 1 行 の 中 で は コン マ で 区 切っ て ) 
ай» ат 
аз, の 22 
азі, の 32 


の 順に 入れ る . 一 方 , 大 き な 配 列 の 入力 は 次 の よう に する と よい . 


10 DIM А(30,50) 
20 FOR 1=1 ТО 30 
30 FOR 4-1 TO 50 


40 PRINT “А(71;7,:; 79-7; 
50 INFUT ACI, JD) 

60 NEXT J 

70 NEXT I 


これ だ と , 入力 すべ き デ ー タ ー の 行 番号 。 列 番号 が 表示 され る の で , 該当 する 
デー ター を 入れ て いけ ば よい . 


RUN 

АС 1 。 1 )=? 947.2511 
АС 1 。 2 )=? 262.5256 
AC 1 。 3 )=? 233.8641 
AC 1 。 4 )=? 256.3491 
A( 1 。 5 )=? 941.3131 
A( 1 。 6 )=? 


ж 大 型 コ ン ビ ュー ター の BASIC に ある МАТ READ 文 や МАТ 
PRINT 文 は 。 パソ コン の BASIC で は 使用 で き な い . 
жж 配列 の 1 行 分 を 画面 1 行 に 表示 で きる 場合 
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H 2) 出力 も 同様 で , 以下 の 要領 で プロ グラ ム を 書け ば よい . 
( 例 ) 配列 A が M {т М | С, ミ =5 の 場合 


100 FOR Ізі TOM 
110 FOR 2-1 ТОМ 


120 FRINT А(1,/0, 
150 МЕХТ J 

140 FRINT 

150 NEXT І 


( 例 ) 配列 A が М 行 列 で , N > 5 の 場合 , 4 列 分 ずつ まとめ て プリ 
ンタ ー に 出力 し て , あと で 大 き な 台 紙 に は り 合 わせ る と よい . (TABI 
つい て は 124 ペ ー ジ 参照 ) 

100 FOR KARA=1 TO М STEP 4 


119 MADE =KARA+3 

120 IF МАРСЕ >N THEN МАРЕ =N 

139 FOR J=KARA TO MADE 

149 LPRINT "J="; J; ТАВ (ióx(J-KARA+1)); 
158 NEXT J 


160 LPRINT 
170 FOR I=1 ТО М 


180 FOR J=KARA TO MADE 

190 LPRINT А(<1,./2%ТАВ<16ж(7-КАКАФ%122; 
208 NEXT J 

210 LPRINT 


228 NEXT I 
230 LPRINT 
240 NEXT KARA 


250 END 
[出力 例 ] 

J= 1 J= 2 J= 3 J= 4 
1 .5 ・33333333 ・ ら 5 
2 1 . 66666667 .5 
3 1.5 1 ・75 
4 е 1.3333333 1 
5 2.5 1. 6666667 1.25 
る 3 2 1.5 
7 3.5 2. 3233333 1.75 

J= 5 J= é J= 7 
.2 . 16666667 . 14285714 
.4 ・33333333 . 28571429 
.6 .5 . 42857143 
・8 . 66666667 .57142857 
1 ・83333333 ‚71428571 
1.2 1 .85714286 
1.4 1. 1666667 1 
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例題 6 一 一 一 一 九 九 の 表 
| 九 九 の 表 を 作成 する プロ グラ ム を 作れ . _ | 


[解答 ] 右 図 の よう な 配列 を 用 意 し , 
その z 行 7 列 目 の 所 に 積め の 値 を 書 
き 込 ん で 印刷 する . た だ し , 普通 の 方 
法 で 出力 する と 上 下 が き れい に そろ わ 
жо, きれ いな 形 で 出力 する に は 下記 
の プロ グラ ム 例 の よう に PRINT 
USTNG 文 を 用 いる と よい . (122 ペ ー 
ジ 参 照 ) 
100 DIM А(9,9) 


110 FOR Ізі ТО 9 
120 FOR 4-1 TO 9 


о со -з の の » оо や с ы 


181»59%СсЖж2, その 中 で 7 を 


130 ACI, DEIXI 1 か ら 9 ま で 変え て 。 積 が を 計算 する . 
140 NEXT J 
150 NEXT I これ で 配列 A の 中 に 九 九 の 表 が で きた . 


160 FOR 1=1 ТО 9 

170 FOR 4-1 ТО 9 

180 PRINT USING" ###';AC(I, J); 

190 NEXT J 

200 PRINT これ は 「 改 行 せ よ 」 と いう 意味 に な る . 
210 NEXT І 

Fun 


1-28-48 е Са 
2 4 6 B t 12 ТЕСІК 78 
8.6 9 25518 25-027 
4 8 12 16 20 24 28 32 36 
5 10 15 20 25 30 35 40 45 
6 12 18 24 30 36 42 48 54 
7 14 21 28 35 42 49 56 63 
8 16 24 32 40 48 56 64 72 
9 18 27 36 45 54 63 72 81 
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4.12 е 計 


n 筒 の デー ター ム 。 а, …。 а, を 読み 込み 。 
5 ニム の 十 @ 十 … 十 の 
を 計算 し て 印刷 する に は 次 の よう に する 。. 


1) 部 分 和 を 表す 変数 を 設け , 
その 値 (出発 値 ) を 0 に し て お く . 
2 ) 第 1 項 , 第 2 項 。 … の 順に 


項 の 値 を 計算 (また は 読み 込む ) 
項 の 値 を 部 分 和 に 加え る 
最後 の 項 ま で 反復 

3 ) 部 分 和 の 最終 値 が 合計 値 で ある . 


[プロ グラ ム 例 ] 


10 INPUT М 
20 DIM A(N) Шы: 


30 FOR І-і TO N 


40 INPUT A(I) FÖR エ =1 TÖ N 
50 NEXT I 

60 S=0 (A ( 1 ) の 計算 ) 
70 FÖR І-і TÖ N 

80 S=A(I)+S 

90 NEXT I 

100 PRINT “a” 94 ";8 


ある い は , 次 の よう に し て も よい . 

10 INPUT N 

20 8=0 

50 FOR І-і TÖ N 

40 INPUT А 

50 б=А+5 

60 NEXT I 

“Оо PRINT Ча” 294 ";8 
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4.13 最大 値 , 最小 値 


ОЙЙ х, る …。 Ххх の 最大 値 C を 求め る に は 次 の よう に すれ ば 


0; 
最初 , 仮り に G=x: と する 


に つい て 反復 


(反復 終了 時 の C の 値 が 最大 値 で ある ) 
= 最小 値 も 同様 な 要領 で 求め る こと が で きる . 
a 最大 値 G と 最小 値 ぐ を 同時 に 求め る に は 次 の よう に する . 


Ж, С-х. $=х と する 


。 に つい て 反復 


新 G=xi と する 新 S= ニ x。 と する 


(反復 終了 時 の С, 5 の 値 が 最大 値 , 最小 値 で ある ) 
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[プロ グラ ム 例 ] デー ター ム @,。 а, --, ал の 最大 値 を 求め る に は 次 の よ 
うに すれ ば よい .。 

500 MAX=A(1) 
510 FOR I=2 TÖ N 
320 IF МАХ<А(1) THEN МАХ=А(І) 
330 NEXT I 
最大 値 だ け で な く , その 番号 も 必要 な 場合 は 次 の よう に する 。 
500 МАХ-А(1) : L=1 
510 FOR 1=2 TO N 
520 ТЕ МАХ<А(І) THEN МАХ=А(І):1=1 
550 МЕХТ І 
最小 値 を 求め る に は 次 の よう に する 。 
540 МІМ-А(1) 
550 FÖR I=2 TÖ N 
360 IF МІМ>А(І) THEN МІМ=А(І) 
370 NEXT I 
最大 値 と 最小 値 を 同時 に 求め る に は 次 の よう に する 。 
500 МАХ-А(1) 
510 MTIN=A(1) 
520 FÖR I=2 ТО N 
550 ІЕ МАХ<А(І) ТНЕМ МАХ-А(І) 
(前 行 の 続き ) GOTO 350 
540 ТЕ MTIN>A(T) THEN МІМ=А(І) 
550 МЕХТ І 
絶対 値 の 最大 値 を 求め る ゐ ら 次 の よう に する 。 
500 MAX=ABS(A(1 ) ) 
510 FÖR I=2 TO N 
320 IF MAX<ABS(A(I)) THEN MAX=ABS(A(I)) 
330 NEXT I 
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4.14 SWAP 


これ は 二 つ の 変数 の 内 容 を 交換 する 命令 で , 制御 文 で は な い が 。, 制 
御 文 と 一 緒 に よく 用 いら れる . SWAP 文 は 次 の 形 で 書く . 


SWAP 変数 名 , 変 数 名 
( 例 ) SWAP А,В 


( 例 ) 手もと に 本 機 が あっ た ら , 次 の プロ グラ ム を 実行 きせ て みる と よ 


10 INFUT "а=";А 
20 INPUT "b=";B 
ЗО SWAF A,B 

40 PRINT "a=";A 
50 PRINT "Ь="; В 


内 容 の 入れ 替わっ て いる の が わか る で あろ う . 
(実行 例 ) 


гип 
а=? 2 
b=? 3 
а= 3 
b= 2 
Ok 


(使用 例 と 実行 例 ) 


10 INFUT "а=";А 

20 INPUT "b=";B 

50 IF А<В THEN SWAF А,В 
ДО PRINT "オオ キイ ホウ リリ" ョ 人 na 
50 PRINT "チイ サイ жол"; В 


гип 

а=? 298 

b=? 808 

オオ キイ жол ВОВ 
チイ サイ жол 298 
Ok 
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4.15 大 き さ の 順に 並べ る 


-ЯНО”-2-х, %, …。 м ж, 大 き さ の 順 ( 大 きい 順 。 また は 小さ 
い 順 ) に 並べ 替え た いこ と が よく ある .。 この よう な 処理 を ソー ト (整列 , 
sorting) と いう 。 それ に は 各種 の 方 法 が ある が 。 最も 簡単 な の は 交換 法 
で ある . 


交換 法 これ の 基本 形 は 「 隣 り 合う 二 つ の デー ター を 比較 し , 
ІНІҢ (望ま し い 順 序 ) に な っ て いれ ば その まま 
逆順 ( 逆 の 順序 ) に な っ て いれ ば 入れ 替え る 


と いう 処理 を , 列 の 最初 か ら 最後 まで 何 回 も くり か えす 」 と いう 方 法 
で ある . 詳し く 検 討 し て みる と 。 反復 回 数 は 最大 z ヶ 一 1 回 で 十分 で あ 
り , 第 7 回 目 に は 「 列 の 最初 か ら z ヶ 一 7 番目 まで ] 調べ れ ば 十分 で ある 
こと が わか る . 


[プロ グラ ム 例 ] 


1 КЕМ === オオ キイ シド ュ ラン с ナラ ベ " カ エル ファ ログ ドラ る --- 
10 INPUT "N=",N 

20 DIM A(N?) 

30 FOR I=1 TON 

49 PRINT "Ас‹";1;"›="; : INPUT А(1› 


50 NEXT I 
60 FOR M=N-1 ТО 1 STEP -1 
70 FOR J=1 TOM 
ве IF ACID <АСЈ+1) THEN SWAP АЈ), АСЈ+1) 
20 МЕХТ J 
109 NEXT М 
110 FOR 1=1 ТОМ па 
120 PRINT А1) 
130 NEXT 1 АС дына. 
іла сыр ас 22-24 
Ас 30-27 
АС 4 )=2 2 
АС 5 )=? 5 
9 
7 
5 
4 
2 
ок 
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4 16 WHILE-WEND 


指定 し た 条件 が 満た され て いる 間 だ け 反 復 を 行ない た い 場 合 の た め 
に WHILE ,WEEND と いう 文 を 使用 で きる . 書き 方 は 
WHILE 条件 式 
くり か え し 実行 すべ き 部 分 


WEND 


くり か え し 
実行 すべ き 
部 分 


次 の 処理 に 進む 


[備考 ] 1) 条件 式 は IF 文 の 場合 と 同様 , 等 式 , 不等式 また は それ ら 
を 論理 記号 で つない だ 形 で 書く . 

2) WHILE~WEND を 入れ 子 の 形 で 多重 に 用 いる こと が で きる . 
その 対応 関係 は 「 内 側 か ら 順 に ] と いう 形 で 処理 され る . 

3 ) 最初 か ら 条件 式 不成立 の 場合 は , 「 く りか え し 実行 すべ き 部 分 」 を 
1 回 も 実行 せ ず に 先 に 進む . 
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例題 —— 収束 判定 

Ух の 値 を 求め る に は 組込み 関数 SQR を 用 いて も よい が , 次 の よ 
う な 遂 次 近似 法 で 計算 する こと も で きる 。 この プロ グラ ム を 作れ . 

a>0 で あれ ば 

の ニ ィ と する 。 


є は 許容 誤差 . 
PERITE 
する . 小さ すぎ 
る と 反復 が 止ま 


ら な く な る 。 


終了 (結果 は ала) 


10 EPS=. 000001 

20 INPUT "X=",X 

30 А=1 

48 В-«х/А 

50 PRINT "А", "В" 

る 9 WHILE ABS < (А-В) /А) >EPS 
70 A= (A+B) /2 


89 В-х/а 

90 PRINT A,B 

100 WEND 

RUN 

Х=2 

^ в 
1.5 1 . 3333333 
1.4166667 1.4117647 
1.4142157 1.4142114 
1.4142136 1.4 142 13 る 


ок 
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4.17 REPEAT~UNTIL 


指定 し た 条件 が 満た され る まで 反復 を 行なう 場合 の た め に 
REPEAT, ОМТІІ と いう 文 を 使用 で きる . 書き 方 は , 


REPEAT 
くり か え し 実行 すべ き 部 分 
UNTIL 条件 式 


概念 図 
REPEAT 


くり か え し 
実行 すべ き 
部 分 


( 例 ) 
10 INPUT X 
20 A=1 : B=X 
38 REPEAT 
48 B= (A+B) /2 зулум: 1.4142136 
59 а-х/в 


る 9 UNTIL ABS <А-В2<1Е-06 
70 PRINT "root (X)=";A 


[解説 ] WHILEE 文 だ と ルー プ に 入っ た 時 点 で 条件 式 の 値 が 確定 し て 
いな けれ ば な ら な い の に 対し , REPEAT だ と ルー プ に 入っ て か ら 値 を 
決め れ ば よい の で 使い 易い . 
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例題 8 ーーーー 一 不定 箇 数 の デー ター の 読み 込み 
一 組 の デー ター ム , Фа, …。 а を 入力 する とき, デー ター の 箇 数 z が 
わか っ て いれ ば , n を 最初 に 入力 する こと が で きる が , 場合 に よっ て 
は , N が わか ら な いと か , 数 える の が めん どう だ か ら 数 えな いで 済ま せ 
た いと いう こと が ある , その よう な 場合 に は , 最後 の デー ター に 何 か 
印 を 付け る か , ある い は 最後 の デー ター の 次 に 何 か 特 別 な 値 を 入れ る 
か し て 。 入力 を 終了 させ れ ば よい . 
上 記 の よう な 方 式 で , 最後 の デー ター の 次 に 9999 を 入れ る こと に し 
T, 不定 箇 数 の デー ター を 読み 込み . その 平均 値 を 計算 する プロ グラ 
ム を 作れ . 


[解答 ] 


開始 一 ヶ 


値 が 99997 
NO 


z に 1 を 加え る 


10 S=9 : М=@ 

28 INPUT А 

30 REPEAT 

40 $=5$+^ 

50 N=N+ 1 

る 9 INPUT А 

70 UNTIL А=9999 

80 PRINT "スイ キン チー "S/N 
90 END 


[注意 ] 最後 を 表す 印 は パソ コン で 正確 に (丸め 誤差 な し で ) 表せ る 数 に し て 
お か な いと 止ま ら な く な る こと が ある . し た が っ て 小数 部 の 付い た 数 や 32768 以 
上 の 整数 は 使わ な い 方 が よい . 
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4. 18 GOSUB-RETURN 


これ は , 行っ て 処理 を 行なっ た あと , も と の 所 に も どっ て き て 続き 

を 実行 し た い 場 合 に 用 いる 文 で 次 の よう に 書く *. 

GOSUB 行先 の 行 番号 
この 文 を 実行 する と , 行 番号 で 指定 され た 所 へ 飛び 。 そこ の プロ グラ 
ム を 実行 し 。 

RETURN 
と いう 文 に 達する と ,、 も と の 所 (正確 に いえ ば GOSU 選 文 の 次 の 文 ) 
に も どる 。 


RETURN 
副 プ ログ ラム 


[備考 ] 他 の プロ グラ ミン グ 言 語 (た と えば FORTRAN や PASCAL) 
と 違っ て , BASIC の 吾 プ ログ ラム は 変数 , 行 番号 な ど が 主 プ ログ ラム と 
全部 共通 で あり , 引数 を 書く こと が で き な い . 


ж SUB は subroutine の 意 . 
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例題 9 ーー 時 分 秒 の 計算 
「 か 時 mm 分 Ss 秒 か ら た 時 m2 分 sz2 秒 まで は 何時 間 何 分 何 秒 か ?」 
と いう 計算 (時 分 秒 の 引き 算 ) を する サブ ルー チン を 作れ . 


[解答 ] 時 , 2, 秒 の 単位 を 併用 し て 時 刻 を 表す こと は 日 常 よ く 行 な わ 
れ て いる . その 加減 算 を 行なう に は 


{60 進 法 の 加減 算 の プロ グラ ム を 作る 

「 すべ て を 秒 単位 に 換算 し て 加減 法 を 行なう 
の 二 つ の 方 法 が ある . IF 文 の 練習 や и 進 法 演算 の 扱い に 慣れ る た め に 
は 前 者 も よい が 。 実務 に は 後者 の 方 が 簡単 で よい . 
[プロ グラ ム 例 ] 


1999 LABEL "HMS" 

1010 T1=3600xH1+60xMi+51 
1020 T2=3600xH2+60xM2+S2 
1030 T=T2-T1 

1040 Н-Т Ұ 5600 

1058 К-Т MOD 3600 

1050 М-К Ұ 60 

1070 5-М MOD óð 

10808 RETURN 


[メイ ン ・ プ ログ ラム の 例 ] 


10 INPUT "6,%,ӨСі2-",Н1,М1,51 RUN 
20 INPUT "в, Я, (2) =",Н2, М, 52 8,1,8 С1) =3, 45, 12 


30 GOSUB "HMS" 時 。 2, 8 (2) =7, 21,36 
40 PRINT Н; "вл"; М; "Яң:6; "%" 3 ӨЛ? 36 分 36 % 
50 END ок 


「 時 」 | 分 」「 秒 ] は [GRAPH| 十 |8| ,[GRAPH|+[9| ,「GRAPH|+[o| 
TANT Ф, 
[注意 ] RUN|:| で 開始 する と 最も 若い 行 番号 の 文 か ら 実行 され る か 
о, 上 の 例 の よう に , メイ ン ・ プ ログ ラム は 前 (若い 番号 )。 サブ ルー チ 
ン は 後 (あと の 番号 ) に 置く の が 普通 で ある . その 場合 ,、 メ イン ・ ブ ロ 
グラ ム の 最後 の 思 ND 文 は 省略 で き な い (そう し な いと メイ ン ・ プ ログ ラ 
ム の 後 了 後 。 サブ ルーチン の 中 に 飛び 込ん で し まう )。 
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例題 10 一 ーー 一 日 数 計算 
西暦 £m Hd 日 か ら , 西暦 年 zz 月 みみ 日 まで の 日 数 を 計算 
する プロ グラ ム を 作れ 。 た だ し 。 m 2160 と する 。 


[解答 ] 年 , 月 , 日 を 別個 に 引 算 し て , 引け な けれ ば 上 位 の 値 か ら 借り 
て くる , と いう 方 法 も 考え られ る が , 月 の 日 数 が 一 定 で な いた め , か な 
り 複 雑 な プロ グラ ム に な る . それ より も , 一 定 の 基点 (た と えば , 1600 
年 1 月 0 日 ) か ら の 日 数 を 計算 する プロ グラ ム を 作り , その 日 数 で 引き 
算 を 行なう 方 が 簡単 で ある . 

まず , 1 月 0 日 か ら m 月 d 日 まで の 日 数 を 計算 する 方 法 を 考え て みる 
と よい . それ に は , 各 月 の 0 日 か ら 何 日 目 に な る か を 電卓 で 計算 し て 表 を 
作り 記憶 きせ て お く と 簡単 で ある . 


1 月 2 月 3 月 4 月 5 月 6 月 

0 31 59 90 120 151 
7 月 8 月 9 月 10 月 11 月 12 月 
181 212 243 274 304 334 


これ は 平年 の 場合 で ちあ る. うる う 年 に は 。 3 月 以降 。 上 記 の 値 に 1 を 加 
える . 上 記 の 値 に d を 加え れ ば , 1 月 0 日 か ら m 月 d 日 まで の 日 数 Ni ユ 1 
が わか る 。 

次 に , 1600 年 1 月 0 日 か ら , ヶ年 1 月 0 日 まで の 日 数 N る を 計算 する . 
それ に は いろ いろ な 方 法 が 考え られ る が , 最も 簡単 か つ 明 快 な の は , ひ 
と まず 1 年 を 365 日 と し て 計算 し , それ に うる う 年 の ぶん の 補正 を 加え 
る , と いう 方 法 で ある . 1 年 を 365 日 と し て 計算 する と , NN る の 概算 値 は 
365 х (у—1600) と な る . これ に 「1600 年 か ら у 年 まで の うる う 年 の 回 数 」 
を 加え れ ば よい . その 回 数 は 組込み 関数 て Nm を 用 いて INT((Y¥Y— 
1600)/4)+1 と いう 式 で 求め る こと が で きる . この 式 は 「 西 暦 を 
4 で 割り 切れ る 年 は うる う 年 で ある 」 と いう 規則 に 基づく も の で ある 。. 
と ころ で , 暦法 に は 100 で 割り 切れ る 年 は 平年 と する 。 た だ し 400 で 割り 
切れ る 年 は うる う 年 と する , と いう 規則 も ある . この 補正 を 行う に は , 
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ІМТ( (Ү-1600)/100)-1 を 引き , 
ІМТ( (マー1600 ) ノ 400 ) 十 1 を 加え る 
と すれ ば よい .。 以上 を まとめ る と 。 プロ グラ ム は 次 の よう に な る . 


10 REM = ЖИН! ======—— 

20 DIM С(12) 

30 C(1 )=0:C(2)=31 :C(3)=59 

40 С(4)=90:С(5)=120:С(6)=151 
50 С(7)=181:С(8)=212:С(9)=243 
60 C(10)=273:C(11)=304:C(12)=334 
70 INPUT “Ү1,М1,П1-";Ү1,М1,01 
80 INPUT "Ү2,М2,02-" ; Ү2,М2,02 
90 Y=Y1 : M=M1 : D=D1 

100 GOSUB 210 

110 А1-М 

120 Ү-Ү2 : М-М2 : D=D2 

130 GOSUB 210 


140 А2-М 

150 А-А2-А1 

160 PRINT 

170 PRINT Ү1;7% “МІН "01; "日 カラ " 
180 PRINT Ү2;"% *;М2;'А "*;02; "日 IFN 


190 PRINT А; "В 7262” 


220 7-Ү-1600 

230 N2=365※Z+INT(Z/4 )-INT(Z/100)+INT(Z/400 ) 
240 IF Z>0 THEN N2=N2+1 

250 N1=C(M)+D 

260 N=N1+N2 

270 IF (Y MOD 4) く >0 THEN RETURN 
280 IF (Y MOD 400)=0 GOTO 300 
290 IF (Ү MOD 100)=0 THEN RETURN 
300 КЕМ ------- а 2 = 
310 IF M>2 THEN N=N+1 

320 IF Z>0 THEN N=N-1 

330 RETURN 
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例題 11 一 ーー 曜日 
| 西暦 y Em 月 日 が 何 曜日 か を 調べ る プロ グラ ム を 作れ . | 


[解答 ] 例題 10 で 説明 し た 方 法 で 「1600 年 1 月 0 日 か ら の 日 数 」 М を 計 
ни, それ を 7 で 割っ た 余り を 選 と すれ ば 。 次 の よう に な る 。 
Р 0 1 2 3 4 5 6 


10 REM ーーーーーーー ДЕ” === 

20 DIM C(12) ,M ま (6) 

30 С(12-0:С(22-31:С(32-59 

40 C(4)=90:C(5)=120:C(6)=151 

50 С(7)=181:С(8)=212:С(9)=243 

60 C(10)=273:C(11 )=304 :C( 12)=334 
70 M ま (0)=" キ ン " :ШФ(1)= "К" "MM ま (2)=" 日 " 
80 M$(3)=" 月 " :M ま (4)=" カ "も (5)=" ス イ " 
90 いま (6)=" モ ク " 

100 INPUT "年 月 。 日 = ";Ү,М,0 

110 GOSUB 170 

120 R=N-INT(N/?7 )x7 

130 PRINT 

140 PRINT Yi "年 "iMi "月 "Ds; "BA "; 
150 PRINT W$(R);" ЗК" 7725” 

160 END 

170 РЕМ --- 1600.1.0 カラ ノ 29292 カン サン --- 
180 Z=Y-1600 

190 М2-365ж7-7Ұ4-7Ұ100-%7Ұ400 

200 ІҒ 720 ТНЕМ М2-М2%1 

210 N1=C(M)+D 

220 N=N1+N2 ü 
230 IF (Y MOD 4)<>0 THEN RETURN 
240 IF (Y MOD 400)=0 GOTO 260 

250 IF (Y MOD 100)=0 THEN RETURN 
260 IF М>2 THEN N=N+1 

270 IF Z>0 THEN N=N-1 

280 RETURN 


RUN 
ң,Ң,Н = ? 1984,1,1 
1984 4 1 月 1 日 八 日 ヨ 39E' 7720 


[備考 ] (120, 70--90, 150 に 現れ る 変数 W$ は , 次 の 章 で 説明 する 文字 列 型 の 
変数 で ある . 詳し く は 5。.2 節 参照. 
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例題 12 カレ ンダ ー 
у と т を 読み 込み (た だ し y==1600 と する ) 西暦 y 年 月 の カレ 


ンダ ー を 出力 する プロ グラ ム を 作れ . 


[解答 ] AE y т 月 1 日 が 何 曜日 に な る か は 前 問 の 要領 で 計算 で き 
る か ら , その 曜日 の 位置 か ら 始め て 。 カレ ンダ ー の 形式 で 数 字 1 か ら 31 
まで ( 小 の 月 は 30, 29 ま た は 28 ま で ) を 出力 すれ ば よい . カレ ンダ ー 形 
式 に まとめ る 方 法 は いろ いろ 考え られ る が , 以下 に 示す の は 比較 的 簡単 
な 方 法 の 一 例 で ある . この プロ グラ ム で は カラ ー・ デ ィ ス プレ イ を 用 い 
T, 日 曜日 は 赤 , 土曜 日 は 青 , その 他 の 曜日 は 白 で 表示 する よう に し て 
Ak. 祝日 を 赤 に する と か , 祝日 と 日 曜 が 重なっ た 場合 に 翌日 を 赤 に す 
る と か いう よう な 処理 は 省略 し て ある が , この 例 で だ いた い の 要 領 は わ 
か る と 思う か ら , あと は 各自 で 工夫 され た い . 後述 の グラ フィ ッ ク ・ デ ィ 
スプ レイ の 技法 を 活用 し て 見 ば を え を の する カレ ンダ ー を 作っ て みる と よい . 
10 КЕМ ------- カレ ンタ "ーー ------- 


60 PRINT : PRINT 
70 PRINT РС 12); Үз" &"; М; "Я" 


80 PRINT 
90 DIM С‹12),0 (12), W$ (7) 
100 D(1)=31 D (2) =28 D (3) =31 


110 D(4)=30 : D(5)=31 : D(6)=39 
120 D(7)=31 : D(8)=31 : D(9)=30 
130 D (19)=31: D¢11)=30: D(12)=31 

140 IF (СҮ MOD 4)=0 AND (Y MOD 100)<>0 OR (Y MOD 400) =9 
159 CC1) =0 (前 行 の 続き ) | THEN D (2) «2% 
160 FOR 1=1 TO 11 

179 CCT+1〉 =С (19 +01) 

1808 NEXT І 
198 COLOR 2 
208 PRINT " 
218 COLOR 7 


220 PRINT " 
2308 PRINT 

240 PRINT " 
250 PRINT " 
260 PRINT " 
270 COLOR 1 
280 PRINT " 


® w 


に (っ 166 ペ ー ジ に 続く ) 


は 
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4 19 ON~GOTO, ON~GOSUB 
一 度 に た くさ ん の 枝 に 分 岐 し た いこ と が ある 。. 
i 
4 ン 
E тана 
а, 
1 34 


番号 を キー (選択 の 基準 ) と し て この よう な 枝分かれ を 行なう に は 。 


Он © GOTO 行先 』。 行先 > 。 „ 行先 』 
と いう 文 を 用 いる と 便利 で ある . これ は 
番号 が 1 な ら ば 行先 , に 行け 
2 行先 > 


n 行先 。 
と いう こと を 表し て いる 。 行先 は 行 番号 また は ラベ ル で 指定 する - 


( 例 ) ON к GOTO 100,500,1750 

番号 の 所 に は 式 を 書い て も よい . 
( 例 ) ON N—40 GOTO 200,280,170 

式 の 値 が 整数 に な ら な か っ た 場合 に は 小数 部 分 は 切り 捨て られ る . そ 
の 結果 が 1 一 以外 に な っ た 場合 (いい か えれ ば ぼ ば 。 該当 する 行先 が 無い 場 
合 ) は 次 の 文 に 進む . 


同様 に 
ON 番号 GOSUB 行先 s 行先 z 。 … 。 行先 。 


と いう 書き 方 も で きる . この 場合 は 。 番号 で 選ば れ た 行先 に 進み 。 そ 
この プロ グラ ム を 実行 し , RETURN 文 に 到達 する と そこ か ら も と の 
所 (ON 文 の 次 の 文 ) に も どっ て くる . 
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例題 13 スイ ッッ チ シ ング 
面積 や 体積 の 計算 を する た め の 汎 用 プロ グラ ム を 作り た い . まず 機 
能 選 択 コ ー ド K を 読み 込み , К»ї1 な ら ば 三角 形 の 面積 , る な ら ば 円 
の 面積 , る な ら ば 栓 円 の 面積 。 4 な ら ば 球 の 面積 。 5 な ら ば 円 雛 の 体 


積 を 計算 する プロ グラ ム に 進み , 必要 な デー ター を 読み 込ん で 計算 を 
ТЕФЕЗІСАНЕ, 


10 REM === ЎУЕТ EE === 
20 PRINT "1 9720274" 

30 PRINT “2 тә" 

40 PRINT "3 9* ІУ" 

50 PRINT "4 キュ ウデ 

68 PRINT "5 T224" 

ТӨ INPUT "к レニ シマ スカ ラリ К 
80 ОМ К GOSUB "922274", "Іх", "9% 1х", "Ф172", "ІРХИ" 
90 ЕМО 

100 LABEL "サン カク ケイ " 

118 INPUT "テイ ベン" ョ 人 

120 INPUT "379 ":Н 

130 PRINT "メン セキ "%АжН/2 
149 RETURN 19 

159 LABEL "I2" 

160 INPUT "№274 "К 

170 PRINT "メン tN ";лжК^2 
180 RETURN 19 

190 LABEL “277T2" 

200 INPUT "#39774 ЗА 

210 INPUT "タン ケイ "日 

220 PRINT "メン セキ "“ілжАжБ 
230 RETURN 19 

240 LABEL "キュ ウリ 

250 INPUT "№274"; К 

260 PRINT "Эта "; (4/3) жіжЕЙҮз 
2708 RETURN 10 

280 LABEL "エン スイ " 

290 INPUT "Гу7А ЗЕК 

300 INPUT "タカ サ " 5H 

310 PRINT "ヲイ セキ ";С1/З›жНжЛлжЕ ^2 
320 RETURN 18 
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4.20 文法 詳説 


コン ピュ ー タ ー の 内 部 で は , すべ て の 情報 は 0 と 1 の 組合 せ で 表現 さ 
n, 処理 され る が , BASIC の セン ス で いえ ば 「0 と 1 の 組合 せ 」 と いう 
の は 要する に 数 値 の こと で ある か ら 「 す べ て の 情報 は 数 値 の 形 で 表現 さ 
れ 処理 され る 」 と いっ て よい 。 

ІЕКУӘМЕІҺЕУІСІЗ, た と えば 

А-В と か ( A く B ) AND( C>=D ) 
と いう よう な 「 条 件 式 」 が 現れ る . この よう な 条件 式 が , 成立 し て いる 
( 真 で ある ) と か , 成立 し て いな い ( 偽 で ある ) と いう よう な 情報 も 数 値 
と し て 表現 きれ る . ЖОО BASIC で は 


A (条件 成立 ) を —1 


偽 (条件 不成立 ) を 0 


TRL TGS.: 
この よう に 数 値 の 形 で 表 さ れ た 論理 情報 は , 変数 の 値 と し て 代入 し た 
0, 演算 し た り , 出力 し た りす る こと が で きる 。 
論理 値 の 代入 た と えば , 二 つ の 数 値 A 。 B を 入力 し , 不等式 
А>В 
が 成立 する か 否 か を 調べ , その 結果 (и, (Во?) を 変数 C に 代 
А 出先 し で みよ う 。 


1 ロ INPUT "3,b=", A,B 
20 С=н>В 
30 PRINT С 


RUN 
a. b=2,3 
а 


RUN 
a. b=3,2 
-4 
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論理 値 の 入力 ВАЅІС 以外 の プロ グラ ミン グ 言 語 (FORTRAN な 
Z) に は 論理 変数 と いう の が あっ て 。 その 入出 力 が 可能 で ある が , 
BASIC で も 「 真 は 1 , 偽 は 0 で 表す 」 と いう 規則 を 知っ て いれ ば 。 論 
理 値 を 入力 する こと が で きる . 
( 例 ) 


18 INPUT "ат",Н 

28 IF Я THEN FRIHT"T" ELSE РБІМТ"Е" 
RIJN RUN 

а=-1 з= 

т Е 


IF 算術 式 THEN と いう 文 が 使え る 上 の プロ グラ ム 例 か ら も わ 
か る よう に 。 TP 文 の 「 条 件 式 」 と いう 所 に 。 普通 の 変数 と か 。 一 般 に は 
算術 式 を 書い て も , ちゃ ん と 実行 し て くれ る . その 場合 


変数 (一 般 に は 算術 式 ) の 値 が O で な けれ ば 「 真 ] 


変数 (一 般 に は 算術 式 ) の 値 が O な ら ば 「 偽 ] 


と し て 扱わ れる . 

算術 式 の 中 に 論理 式 を 書け る 算術 式 (数 値 変数 の 式 , 要する に 普 
通 の 式 ) の 中 の 一 つの 項 と し て 論理 式 を 書く こと が で きる . 項 の 値 は , 
前 述 の と お り , 真 な ら ば ー1 , 偽 な ら ば 0 と な る . 


( 例 ) 
1 INPUT "Н=",Н ғым кин 
2@ INPUT "Б=",В =1 =3 
36 INPUT "Се", С に В=2 
4а INPUT "р=",р С=З С=1 
Әй Rec 2EB う 4C に = Y ed =1 
ЕЙ PRINT М а -2 


この 性 質 は 。 た と えば 一 群 の デー ター を 調べ て 「 特 定 の 条件 に 合う も 
の の 人 箇 数 を 数 を る] と いう よう な 場合 に 応用 で きる . 
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例題 14 数 える 
日 間 の , 正午 の 気温 の 観測 値 T, 7,:-, Ту を 読み 30 て 以上 で 


あっ た 日 数 が を 数 えて プロ グラ ム を 作れ . 


[解答 ] 

1 INPUT "Н=",Н 

20 FOR 1-1 ТОН 

за ІМРОТ Т 

ай ド に = ビー ド モテ ゴロ > 

Sø НЕХТ I 

өй PRINT "зак" TE ат „ колік; "Нн" 

[解説 ] 30'C 以上 な ら ば (Т>-50) が 真 だ か ら 。 その 値 は ー1 と な 
0, 行 40 で は それ を か ら 引 く か ら , の 値 に 1 が 加え られ る こと に な 
>. 一 方 。 30C 未満 な ら ば (Т>-50) が 偽 だ か ら 。 その 値 は O と な 
0, 行 40 を 実行 し て も 衣 の 値 は 変ら な い . 

数 値 変数 の 論理 演算 は は ビッ ト 毎 の 論理 演算 に な る 演算 子 AND, 
бв, NOT は, жж, 論理 値 ( 真 , 偽 ) を 対象 と する も の で ある が , С 
つ は , 数 値 変数 (一 般 に は 算術 式 ) に 対し て も AND, Ов, NOT が 使 
える の で あっ て ,。 その 場合 「 対 応 す る ビッ ト 毎 の 演算 」 に な る . ビッ ト 
毎 の 演算 規則 は 次 の 通り で ある . 

(0 OR 0)-о (0 AND O)=O 


(о OR 1)-і (0 AND 1)=O 


(1 OR о)-і (1 AND О)-о 

(1 OR 1)=1 (1 AND 1)=1 

(NOT 0) =1 (NOT 1)-о 
( 例 ) 3 を 2 進 法 で 表す と 011 

5 を 2 進 法 で 表す と 101 

ビッ ト 毎 の OR を と る と ал 


ビッ ト 毎 の AND を と る と 001 

で ある か ら , 結果 を 10 進 法 で 読む と 次 の よう に な る . 
(5 OR 5) の 値 は 7 
(5 АМО 5) の 値 は 1 
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шы 


РЕІНТ "A ПЕ B", D 


18 ІМЕШТ "A=", A 
260 INPUT "B=", Е 
36 Сен AHC Б 
49 =A ПЕ Е 
әй E=HOT A 
Єй PRINT "A AND Е". 
ШӘ РЕІНТ "HOT А". Е 
кын RUN 
=3 Я=295 
БшЗ Е=2957 
Н АМ В 1 A AHD Е 1 
Н ОЕ E 7 A ОЕ Е 511 
HOT A =q HOT A -256 


ПӘНІ ビッ ト 毎 の 演算 は , 特定 の 桁 を 残し て 他 の 部 分 を 消す 操作 (「 マ 

スク を か ける 」 と いう ) に 応用 する こと が で きる 。 た と えば 。 NN の 値 が 

奇数 で ある か 否 か は 。 IF(N AND 1) て 判定 で きる ,。 た だ し 。 こ の 

よう な 扱い が で きる の は 一 32768 以 上 , 十 32767 以 下 の 整 数 に 限ら れる . 
10 INFUT "Ме",М 


20 IF (М AND 1) THEN РКІМТ "+27" ELSE PRINT "277029" 
50 GOTO 10 


RUN 
N=5 
FRO 
N=6 
7° оло 
№7 
キマ ウ 


XOR, IMP, EQV 論理 演算 子 に は , AND, Он, NOT の ほか 
іс, ХОН, TMP EQV が ある . 


А В (А ХОН В) (А ІМР В) (А EQV В) 
о о 0 1 1 
ОУ; 1 av о 
25% 1 о о 
а. о 1 T 
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[10 進一 2 進 変 換 ] ビッ ト 単 位 の 演算 を 扱う 際 に , 数 値 の ビッ ト ・ バ ター 
ン を 知り た く な る こと が よく ある 。 その た め の , 10 進 一 2 進 変換 の プロ 
グラ ム を 作っ て みよ う . 作り 方 は いろ いろ ある .。 コン ピュ ー タ ー の 内 部 
で は , 数 値 は 既に 2 進 法 に 変換 され て いる の で ある か ら , 前 述 の 論理 演 
算 機能 を 利用 し て ビッ ト ・ バ ター ン を 直接 調べ る , と いう の も 一 案 で あ 
>», 以下 に 示す の は 。 も っ と 平凡 な プロ グラ ム 例 で 。 

整数 4 を 入力 する 

それ を 2 で 割っ て *。 商 を C と し 。 余り を と する 
С を 2 て 割っ て *。 商 を 新 C と し 。 余り を と する 
新 と を 2 で 割っ て *。 商 を 新 C と し , 余り を と する 


上 で 得 ら れ た 6, 5, Б, … を 逆順 に 出力 する ** 


と いう 方 法 を 用 いて いる . (PRINT USTNG に 関し て は 6.6 節 参照 ) 
10 INPUT "А=",А 
20 DIM В‹31) 
398 FOR 1-08 TO Зі 
40 C=INT (A72) 
50 В«І2-А-2жС 
る 9 а-С 
70 МЕХТ І 
80 FOR 1=31 ТО @ STEP -1 
90 PRINT USING "#",В 1); 
100 NEXT I 
110 PRINT 
120 END 


RUN 
A=5 
99999999999999990999999999999191 


[ 別 解 ] 本 機 の 場合 , 関数 BIN$ を 用 いて 
PRINT ВІМ$(А) 
а Р Я 


ж 整 除 , すなわち 商 が 整数 に な る 範囲 で 割れ る と ころ まで 割る . 
жж 最 下 位 が か め , その 上 の 桁 が ちあ 、… 上 と な る か ら , 16 桁 な ら 
Dis bis РЕА b ム bo 
の 形 で 出力 すれ ば よい . 


D 文字 列 処理 


5.1 文字 列 型 


BASIC で は デー ター と し て 文字 列 を 扱う こと が で きる . 文字 列 と い 
5013, 文字 を 1 列 に 並べ た も の で 。 


単独 の 文字 ( 例 ) A 


T E 2185 


文字 の 組合 せ ( 例 ) Cg 一 800C 


単 語 ( 例 ) パソ コン テレ ビ 
文 ( 例 ) Let it be. 
名 前 ( 例 ) サト ウ サン ペイ 
数 式 ( 例 ) a+b 


プロ グラ ム (Ø) 10 INPUT А 
な ど を デー ター と し て 扱う こと が で きる わけ で ある . この よう な デー 


ター に 関し , 
入力 , 出力 
ыж 
一 部 分 を 取り 出す 


二 つ っ の 文字 列 を つない で 一 つの 文字 列 に する 


HE ғ 
な どの 処理 が で きる . 


長 さ の 制限 取り 扱う こと の で きる 文字 列 の 長き は , 0 字 か ら 255 字 


まで で ある 。 


使用 で きる 文字 "アル ファ ベッ ト の 大 文字 。 小文字 , カナ 文字 , 数 
ж, 記号 な ど 。 要する に キー ボー ド か ら 入 力 で きる も の は 何で も よい . 


また 一 部 の 制御 コー ド (た と えば 


J 


TAB 


詳し く は 付録 B の 表 を 参照 の こと . 


な ど ) も 扱う こと が で きる 。. 
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5. 2 変数 お よび 定数 


文字 列 型 変数 名 $ と いう 属性 文字 を 付け て 表す . その 他 の 規則 


は 普通 の 変数 名 の 規則 に 準ずる . 


( 例 ) A$ 
МАМАЕ $ 


шен いち いち る を 付け る の が めん どう な ら ば 。 下 宣言 
DEESTR 頭 文字 
また は 
DEESTR 頭 文 字 の 範囲 
を 用 いて も よい . DEF は define, STR は string の 意味 で ある . 


( 例 ) DEFSTR А 
DEESTER Р-Н 


文字 列 型 定数 2 重 引用 符 " で 囲ん で 表す . 


( 例 ) "А! ,--!! " Q u "т! " ж! 
"Jacques Loussier" 
"(А+В) ИС" 


文字 列 型 配列 文字 列 型 に つい て も , 配列 を 用 いる こと が で きる . 
宣言 は 


DIM 配列 名 ( 寸法 ) 
5.04779. 


(H) DIM А$(100),С$(50),М$(7,5,5) 
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5.3 代入 お ょ よび 比較 


文字 列 型 変数 の 代入 。 代入 の 書き 方 は 文字 列 型 変 数 で も 同じ で あ 


る 。 


( 例 ) A$=B$ 
МӦОЈІ$="А" 


代入 先 の 変数 の 文字 列 長き さ は, 式 の 方 で 定まる 文字 列 の 長き に 合わ せ て 
設定 (必要 な ら ば 変更 ) され る . 
( 例 ) A$ の 内 容 が ABC の と き , RAX 

A$="PQRST" 
を 実行 する と , 以前 の 内 容 ABOC は 消さ きれ, か わり に PQRST が 入る . 
文字 数 は 3 字 か ら 5 字 に な る が ,。 この よう な 代入 も 可能 で ある . 


Е ж 二 つ の 文字 列 が 等 し いか 否 か を TE 文 で 判定 する こと が 


で きる 。 


( 例 ) IF А%-В% THEN PRINT "ЕК" 
IF I$="Y" GOTO 300 


IF 文 に よっ て 文字 列 の 大 小 を 比較 し て 分 岐 す る こと が で きる 。 そ 
の 際 の 大 小関 係 は ASCII コー ド * の 大小 に 従う . 
比較 する 文字 列 は 2 宇 以 上 で も よい 。 その 場合 。 次 の よう に 扱う 。 


先頭 か ら 順 に 比較 する 
文字 列 の 終端 より 先 は 値 ゼ ロ と みな す 


( 例 ) A< 己 こく O く <…< 紀 < ア く イ く ウ く … く ワ く ラ ヲ < マ ン 
А<АА<АА%<АВ 


ж 付録 B 参 照 
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5.4 入出 力 ( 基 本 ) 


文字 列 型 デ ー タ ー の 入力 普通 は TNPUT 文 を 用 いる . 
( 例 ) INPUT A$ 

プロ グラ ム で 字数 を 指定 する 必要 は な い .。 また 。 普通 は , 入力 文字 列 
を 『" 印 で 囲む 必要 も な い . その 場合 , 入力 要求 (? 印 ) が 出 て か ら , Ж 
カカ デー ター の 区 切り を 示す 記号 (コン マ ま た は [ . 引 ) の 直前 まで が 一 つの 
文字 列 と な る . た だ し " 印 で 囲ん で お け ば コン マ を 含む 文字 列 を 入力 す 
る こと が で きる 。. | 

文字 列 型 デー ター の 出力 ディ スプ レイ に 表示 する に は PRINT 
文 を 用 いる . 

( 例 ) PRINT A$ 

プリ ンタ ー に 出力 する に は LPRINTT 文 を 用 いる . 

( 例 ) LPRINT S$ 
例題 1 会 計 
品名 , 単価 , 数 量 を 読み 込み , 金額 を 計算 し , プリ ンタ ー に 出力 す 


る プロ グラ ム を 作れ .。 


[解答 ] 品名 を 文字 列 型 変数 HTMMEET $ に 読み 込み , プリ ンタ ー に 出 
力 する . 単価 に は 変数 名 TANKA を 使い た い が , 予約 語 の 関係 で 文法 違 
反 に な る の で , 代り に TAMKA と する . 金額 を 計算 し た つい で に 。, 合計 
金額 も 計算 する こと に し よう 。 合計 と し て は ,。 小計 と 総計 の 2 種類 を 区 
別 し , 品名 の 入力 時 に 

* 印 を 入れ た ら 。 小計 を 印刷 し て 小計 を クリ ア 

# 印 を 入れ た ら , 総計 を 印刷 し て 計算 終了 

と を うど と に な る 。 

41180, 200, 280, 300 に 用 いら れ て いる STRTNG$ と いう 関数 は 。 
同じ 文字 を 何 字 も 続け て 書く か わり に STRING$ (字数 "文字") 
で 表す 書き 方 で , 詳 し く は 6.8 節 で 説明 する . な お , こ こ で の 一 印 お よび = 
印 は グラ フィ ッ ク 記 号 の 「 横 けい 」, 「 2 重 横 け い 」 で ある . 


54 入出 力 (基本 ) 103 
10 REM ------- カイ ケイ ------- 
28 SOUKE 1 =9 
ЗӘ КЕМ --- major loop --- 
40 SYOUKE 1 =9 
50 LPRINT "E227"; "J292; "スウ リョ ウ “ 。 "キン カク “ 
668 КЕМ --- тіпог Тоор --- 
70 INPUT "ЕУХХ"ІНІММЕІ% 
80 IF HIMMEI$="#" GOTO "SUBTOTAL" 
90 IF HIMMEI$="x" GOTO "SUBTOTAL" 
100 INPUT "377"; ТАМКА 
118 INPUT "スウ リョ ウ " 5;SUURYOU 
120 KINGAKU=TAMKAXKSUURYOU 
130 PRINT "キン フカ ドク N "sKINGAKU 5 "円 テテ ス 。" 
148 LPRINT HIMME I$, TAMKA, SUURYOU』 K INGAKU 
150 SYOUKE I =SYOUKE I +K INGAKU 
160 GOTO 68 
170 LABEL "SUBTOTAL" : REM --- "ж", "6%" ニニ ーー 
180 PRINT STRING$ (20, "—") 
190 PRINT "コウ ァ ケイ "。 SYOUKEI 
200 LPRINT STRING$ (32, "—") 
210 ІРРІМТ "コウ ケイ "。。 , SYOUKEI 
228 LPRINT : LPRINT 
230 SOUKE І =500КЕ І +SYOUUKE I 
248 IF НІММЕІФ= "#" GOTO "BRAND TOTAL " 
250 PAUSE 50 : CLS 
260 GOTO 30 
270 LABEL "GRANDTOTAL" : REM --- "#" --- 
280 PRINT STRINGS (20, "æ"? 
290 PRINT "ソウ ケイ "。 SOUKE I 
300 LPRINT STRING$ (32, "="? 
310 LPRINT "ソウ ケイ "。。, SOUKEI 
320 END 
[出力 例 ] ヒッ メイ 。 зу» スウ リョ ウー キッ が ドク 
コー ヒー 350 2 700 
- 74270-4 330 1 330 [備考 ] 左 の 出力 
ETEF TOR 例 を 見 る と , 数 値 
が 左 づ め に な っ て 
ヒッ メイ ол スウ リョ 2 キッ か が * ク 2 いて 気持 が 悪い で 
ヒ * ラフ 509 1 РЕ 
コー ヒー 359 1 Ж あろ う が 。 後述 の 
а TTA R. PRINT USING 
Т3 эз と いう の を 使え ば , 
ヒン メイ タン カ スウ リョ ウキ ンカ ドク ајна ас 
2-5 288 2 568 こと が で きる (6.6 
ケー キ 399 1 зөв 節 参照 ), 
ウケ イ 849 


ソウ ケイ 2749 
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例題 2 HAPPY BIRTHDAY 
名 前 を 入力 し , それ を HAPPY BIRTHDAY の 歌 に 組み 込ん で 
HAPPY BTRTHDAY TO YOU. 
HAPPY BIRTHDAY TO YOU. 


HAPPY BIRTHDAY DEAR 名 前 SAN. 
HAPPY BIRTHDAY ТО YÖU. 
と 出力 する プロ グラ ム を 作れ 。 


[RE] この プロ グラ ム に は ,。 いろ いろ な 書き 方 が ある 。 下記 は その 一 
例 で ある が ,。 これ に こだわ ら ず に 各自 で 工夫 する と よい . 

10 HB$=" リ HAPPY BIRTHDAY " 

20 ту$="тО YOU 

50 PRINT "オナ マエ ヲ イレ テク タ " サイ リ 

40 INPUT NAME$ 

50 PRINT 1 行 ア ケル 

60 PRINT HB$:TY$ 

70 PRINT HB$:TY$ 

80 PRINT HB$: "DEAR "; МАМЕ$;" SAN." 

90 PRINT HB$:TY$ 

100 PRINT:PRINT:PRINT 3 行 ア ケル 
110 GOTO 30 


[出力 例 ] オナ マエ ラ イレ テク ラー サイ 
т キョ シ 


HAPPY BIRTHDAY ТО YOU. 
HAPPY BIRTHOAY TO YOU. 
HAPPY BIRTHDAY DEAR キョ ヨシ SAN. 
нағғу BIRTHDAY TO YOU. 


オナ マエ ラ イレ テフラ ター サイ 
> PFY 


HAPPY BIRTHDAY ТО YOU. 
HAPPY BIRTHDAY TO YOU. 
нағғу BIRTHDAY DEAR タテ シ SAN. 
HAPPY BIRTHDAY TO YOU. 
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例題 3 五 十 音 順に 並べ か える 
一 組 (全部 で NV 箇 ) の 地名 (また は 人 名 , 駅 名 な ど で も よい ) を 読 


АА», それ を 五 十 音 順に 並べ か えて 出力 する プロ グラ ム を 作れ . 


[解答 ] 並べ か え の 方 法 と し て , 4.14 節 で 述べ た 交換 法 を 用 いる と すれ 
ば デ ロ グ ラム は 次 の ⑦ よ うに な る 。 


n 
20 INPUT "N=",N 
30 DIM A$(N) 
40 FOR 1=1 TON 
50 INPUT A$(I) 
60 NEXT I 
70 REM ------- sort ------- 
80 FOR MADE=N-1 TO 1 STEP -1 
90 FOR І-1 TO MADE 
100 IF А%(І)>2А%(І%1) THEN SWAP A$(I),A$(I+1) 
110 NEXT I 
120 NEXT MADE 
130 REM ------ output ------- 
140 FOR I=1 TON 
150 PRINT А%(1) 
160 NEXT I 


Іс 


ュー] 
© Аш "C00 っ 


ҚАТЫНҒА LLN ы; 
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5.5 文字 列 型 の 演算 


文字 列 型 デー ター に 関し 次 の よう な 処理 が 可能 で ある . 


1) 二 っ の 文字 列 を つない で 一 つの 文字 列 に する これ は 十 印 で 


表す . 


( 例 ) A$ の 内 容 が CAN 
B$ の 内 容 が ON 

な ら ば , 
A$+B$ は CANON 


2) 左 か ら n 字 を と り 出 す これ は 関数 で , 次 の よう に 表す . 
LEFT$ 文字 列 型 変数 名 , и) 


( 例 ) 人 名 が 変数 NAMA 選 $ に 入っ て いる と き 。 その 頭 文字 を と り 出 す に は 。 
LEFT$ (NAMAE$ , 1) 
と すれ ば よい .。 


3) 右 か ら ヵ 字 を と り 出 す これ は 関数 で 。 次 の よう に 表す . 
RIGHT$ ( 文字 列 型 変数 名 , я) 


( 例 ) I$ の 内 容 が タ ノ キ ン な ら ば RIGHT$(I$,2) の 値 は キン に な る ,. 


4) 文字 列 の 中 央 部 分 ( 左 か ちら mm の 所 か ら z 字 ) を と り 出 す 
これ は 関数 で , 次 の よう に 表す . 
MID$ (文字 列 型 変数 名 。 т, n) 


( 例 ) MOJI$ の 内 容 が CANDY の と き , 
MID$(MOJI$,2,3) 
の 値 は AND に な る . 


5) 文字 列 の 変更 左 か ら mm 字 め の 所 か ら ヵ 字 変更 し た い 場 合 , 
MID$ ( 文字 列 型 変数 名 , m, n )= リ 新しい 文字 列 " 


と 書く (右辺 は 文字 列 型 変数 名 や 文字 列 式 で も よい ). 
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6) 文字 列 の 中 に , 指定 され た 綴り が 含ま れ て いる か 否 か を 調べ ., 
含ま れ て いる 場合 は , その 位置 (綴り の 先頭 が 文字 列 の 左 か ら 何 字 目 
に ある か ) を 調べ る これ は , 普通 

TNSTR( 文字 列 型 変数 名 ," 0") 
の 形 で 書く *( こ れ に は $ が 付か な いこ と に 注意 !). その 値 は 


その 文字 列 に その 綴り が 含ま れ な い 場 合 に は O 

含ま れる 場合 は その 位置 ( 左 か ら の 字数 で 表し た 先頭 位置 ) 
に な る . な お , 照合 開始 位置 を 指定 する こと も で きる . その 場合 は 次 
の よう に 書く . 

INSTR ( 照合 開始 位置 , 文字 列 型 変数 名 ," 綴り" ) 


( 例 ) CO$ の 内 容 が 
10 IF X=Y GOTO 700 
1! 先頭 ы 11 字 目 
の と き , 


INSTR(C$, "GOTO'" ) 
の 値 は 11 に な る . 


7) 文字 列 の 長 さ を 調べ る これ は 関数 で , 


LEN ( 文字 列 型 変数 名 ) 
と 書く . 


( 例 ) 8S$ の 内 容 が , ©” а” АУ” ал” ムコ "コウ ノスリ キレ カイ シ 
~ ャ リス イキ а/А4%” ョ ウマ ッ ツウ ン キ " ョ ウマ ッ フ ウラ イマ ツク ウネ 
カル トド トコロ 三 スム トコ ヨロ ヤ フ " ラコ ウシ ンー /27 ラ ョ ウシ N {фе лу 4 
Жл IR? ノシ ュー リン カ シン シュ ー リ ンカ У/27 一 リン タ " イク 
7.1 уЯ” AIR? ик" コ ヒ " ー ノ ホン ホ "コナ チョ ウキ ュ ウ メイ ノン 
キュ ウス ケ な ら ば LEN(S$ ) の 値 は 165 に な る 。. 


ж 一 般 に は , ІМӘТЕ( 文字 列 式 , 文字 列 式 ) の 形 が 許さ れる . 第 1 引数 
が 被 検索 文字 列 。 第 2 引数 が 検索 する 綴り を 表す . 
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例題 4 一 一 一 一 一 タヌキ 言葉 
| 文字 列 A$ の 中 か ら 「 タ 」 の 字 を 取り 除く プロ グラ ム を 作れ . | 


[解答 ] タヌキ 言葉 と いう の は 子供 の 遊び で ある . 文章 か ら 「 タ 」 ОЖ 
を 全部 抜い て 話す の で ある が , うっ か り 抜 き 忘 れ た り ,「 タ 」 の 字 を 除く 
と お か し な 感じ に な っ た り し て 面白 い . 終戦 直後 は よく 停電 が あり , 停 
電 す る と 何 も で き な い の で 。 よく こん な こと を し て 遊ん だ . 

BASIC で これ を 行なう に は , まず INSTR で 「 タ 」 の 字 の 位置 を さき 
が し , それ より 左 の 部 分 と それ より 右 の 部 分 を LEFT$, RTGHT$ で 
取り 出し , 演算 子 + で 前 後 を 結合 すれ ば よい . 


( 例 ) 
タ の 字 の 位置 J を 見 付け る 


| 


サン タク ロー ス 


Жоғ 


左側 の 部 分 を 右側 の 部 分 を 


L$ と する R$ と する 
Ға L$ と R$ を つなぐ 
サン クロ ー ス 


し た が っ て , プロ グラ ム の 基本 形 は 次 の よう に な る . 


10 INPUT A$ 

20 N=LEN (A$) 

50 J=INSTR(A$, "7") 
40 L$=LEFT$ (A$, Ј-1) 
50 R$=RIGHT$ (АФ, NJ) 
60 B$=L$+R$ 

70 PRINT B$ 


[実行 例 ] 
RUN 
? 49% 
イチ 
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左記 の プロ グラ ム は 「 タ 」 の 字 が 1 箇所 だ け な ら ば よい が 。 二 つ 以 上 
ある と 困る . その 点 を 改良 する と 次 の よう に な る . 


10 INFUT А% RUN 
20 に =1 TIRT 
20 N=LEN (A$) яғ 


40 J=INSTR (К, АФ, "7") 
50 IF Ј=0 GOTO 120 


620 L$=LEFT$ (АФ, Ј-1) RUN 

70 К%-КІСНТ%(А%,М-2) ? リタ ダリ タ 

80 АФ-і %-%КФ ババ 

90 N=N-1 

100 K=J 

110 GOTO 40 ким 

120 РКІМТ A$ тУт 
カキ 


これ で だ いた い OK で ある が , じつは 「 タ ・」 の 場合 に 困る . 
( 例 ) メタ * カ > メ * カ 
これ を 解決 する に は , [2° | の 場合 , 濁点 ちい っ し ょ に 取り 除く と いう 
方 式 と , 外国 語 の ょ うに ta と da は 別 音 と 考え て 「 タ * | は 残す と いう 
方 式 と が ある . 後者 の プロ グラ ム 例 を 以下 に 示す . 


10 INFUT А% 

20 К-і 

ШО N=LEN (A$) 

40 J=INSTR (К, АФ, "72") 

50 IF 4-0 GOTO 150 

60 IF 1-М GOTO 90 

70 MIGI$=MID$ (АФ, Ј+1,1) 
80 IF MIGI$="“" THEN К=Ј+1 : GOTO 40 
90 L$=LEFT$ (A$, J-1) 

100 R$=RIGHT$ (АФ, N-J) 
110 A$=L$+R$ 


120 N=N-1 

130 K=J RUN 
140 GOTO 40 Ее дарт. 
150 РКІМТ А% 27N 


これ で も まだ ぐあい の 悪い の が 
ワン タン タン メン DITTA ンス 
な ど で あ る . ひと つ 各 自 で 工夫 され た だ たい . 
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5.6 ASCII コ ー ド 


本 機 の 内 部 で , 文字 は 0 一 225 の 番号 で 表 さ きれ て いる 。. 文字 と 番号 の 対 
応 は , 付録 B の 表 の よう に な っ て いる .。 この 符号 系 は 。 英字 , Жж, 記 
号 に 関す る 限り , ASCII( ア スキ ー と 読む . アメ リカ の 標準 規格 ) の 符号 
系 と 同一 な の で ,。 ASCII コー ド と 呼ば れ て いる . 


ASCII コー ド を 文字 に 変換 する に は 次 の よう に 書く . 
CHR$ も (コー ド ) 
反対 に , 文字 を ASCII コー ド に 変換 する に は 次 の よう に 書く . 


ASO( 文字 列 弄 定数 また は 変数 名 ) 
文字 列 の 長き が 2 字 以 上 の 場合 。 先頭 の 1 字 の み が 変 換 さ れる . 


( 例 ) АФ ASCII コー ド は 65 で ある か ら 。 
PRINT CHR$(65) 

を 実行 すれ ば 文字 A が 出力 され 
PRINT ASO( "AV") 

を 実行 すれ ば 数 値 65 が 出力 され る . 

[簡単 な 使用 例 ] 


10 INPUT C$ 

20 A=ASC (C$) 

ЗӨ PRINT "тә" "CSI / ASCII 2-87 A "JAT デス 。 “ 
40 PRINT : PRINT 

50 GOTO 10 


жу” A / ASCII コー トト Nn 45 972. 


? а 
аз“ а / ASCII コー トマ 97 7% 


>?” 
яу%- 4 2 ӨСІП コー トド "ID 87 24754 
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5.7 文字 列 で 数値 の 変換 


文字 列 型 変数 は , 本 来 , 文章 や 単語 を 扱う た め の も の で , 文字 列 と し 
て は 英字 また は カナ 文字 が 並ん を で いる の が 普通 で ある . し か し , 場合 に 
よっ て は 。 文章 の 一 部 に 数 字 が 並ん を で いて , それ を 数 値 変数 に 変換 し て 
計算 に 使い た いと か , 逆 に , 数 値 変数 の 値 を 10 進 法 表現 の 数 字 列 に 変換 
レ し て 文字 列 の 一 部 分 に 組み 込み た い ,。 と いう こと が ある . これ を 簡単 に 
実行 で きる よう に 次 の 二 つ の 関数 が 用 意 き れ て いる 。. 


文字 列 型 で 表 き され て いる 数 値 を 数 値 型 に 変換 する に は 
数 値 型 変数 名 =VA エ ( 文字 列 型 変数 名 ) 
数 値 型 で 表 き れ て いる 数 値 を 文字 列 型 に 変換 する に は 


文字 列 型 変 数 名 STR$( 数 値 型 変 換 名 ) 
と 書け ば よい . 


10 A$="72773 1271 Fa" 

20 Y$=MID$ (АФ, 7,2) 

ЖО NENREI=VAL (Y$) 

40 RAINEN=NENREI+1 

50 NY$=STR$ (RAINEN) 

60 も = リラ イネ フ リリ トキ NY ま + す リサ イー ニ ナリ マッ マリ 
70 FRINT A$ 

80 РКІМТ В% 


RUN 
99291 1294 7° я 
ライ ネン М 1591 2 ナリ マス 


[備考 ] 1) 関数 YAL の , より 実用 的 な 応用 例 が 114 ペ ー ジ に ある . 

2 ) 関数 YAL は , 一 般 に , 正負 の 符号 や 小数 点 や 指数 部 の 付い た 数 値 
で も 変換 する こと が で きる . 

3 ) 関数 STR$ の 引数 は 倍 精度 実数 型 で も よく , その 場合 正しく 倍 
精度 の 変換 が な され る . 


112 5 文字 列 処 理 


5.8 16 е Ж 


16 進 法 と いう の は 16 箇 の 数 字 
)122:456ТЕФФАВСРрЕЕҒ 
を 用 い 。 16" を 表記 単位 と し て 数 を 表す や りか た で ある . IIT, 
A は 10 
B は 11 
C は 12 
D は 13 
E は 14 
F は 15 
を 表す . また 位 ど り は 
1 が 167 == 1 
10 が 16' = 16 
10025167 = 256 
100023162 = 4096 


25267, た と えば 。 
A75F 
は 10 進 法 の 
10x16? 十 7x16* 十 5x16' 十 15x16? = 42847 
を 表す . コン ピュ ー タ ー の 関係 で 16 進 法 が よく 用 いら れる の は , 
コン ピュ ー タ ー の 内 部 で は 2 進 法 が 使わ れ て いる 
し か し 2 進 法 で 数 値 を 表す と 桁 数 が 多く な り 人 間 に は 不便 
そこ で 2 進 法 表現 を 4 桁 ず つま と め て 16 進 法 で 扱う と 便利 
と いう 理由 に よる 。. 
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BASIC に よる 書き 方 「 こ の 値 は 16 進 法 で 書い て ある 」 と いう こと 
を 表す の に , BASIC で は 頭 に & 了 HH と いう 記号 を 付け て 表す . 
( 例 ) &H100 これ は 16 進 法 の 100 だ か ら 10 進 法 の 256 の こ と . 
«НАВС これ は 文字 の ABC で は な く て 16 進 法 の 
Ax16?+Bx16'+C 
すなわち 
10x256 十 11 x16 十 12 = 2748 
00.2.0, 
内 部 表現 (2 進 法 の 数 ) を 16 進 法 表現 の 文字 列 に 直す 方 法 これ に は 
ВЕЖНЕХФ を 用 いれ ば よい . 書き 方 は 
HEX$( 数 値 変 数 名 また は 式 ) 
( 例 ) 16 進 法 の 1 桁 乗算 表 (10 進 法 の 九 九 の 表 に 相当 する も の ) を 作成 
する プロ グラ ム の 例 と その 出力 例 を 以下 に 示す ( 行 50 の USING に つい 
て は 6.6 節 で 説明 する ). 


10 FOR Ізі ТО &HF 
20 FOR 4-1 ТО &HF 


30 12-І». 

40 H$=HEX$ ( 1.1) 

50 СРЕІМТ USING'& 4" НҒ; 
60 NEXT J 

70 ІРКІМТ 

80 МЕХТ І 
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5.9 日 付 と 時 刻 


ХІ の 本 体 に は 時 計 が 内 蔵 ほ きれ て いて 
今日 の 日 付 は DATE$ 


現在 時 刻 は  TIME$ 
曜日 は DAY$ 
と いう 文字 列 型 変数 の 値 と し て 読み 出す こと が で きる 。 


本 機 の 時 計 は 主 電源 を 切る と クリ ア さ れ て し まう の で , 主 電 源 を 入れ 
た 時 に は , その 日 の 日 付 と 現在 時 刻 と 曜日 を 
DATE$= リ 年 年 / 月 月 / 日 日 " 必ず 2 桁 の 形 
TMRE$ 王 "時 時 : 分 分 : 秒 秒 『 сше 
DAY$= リ 曜日" 
の 形 で セッ ト し て や る 必要 が ある . た だ し 曜日 は SUN, МОН, TU 
E, WED, THU, ЕНІ, ЗАТ СЖЗ. 主 電源 を 切ら な けれ ば , ЯН 
に は 日 付 が 変わ り , 12 月 31 日 の 次 に は 翌年 の 1 月 1 日 に な る . 
計算 結果 や プロ グラ ム を プリ ンタ ー に 出力 する と き 。 つい で に 日 付 を 
プリ ント し て お く と 。 後日 , 整理 に 役立つ こと が 多い . 
日 付 や 時 刻 が 文字 列 型 変 数 に な っ て いる の は 。 主 に 表示 や 印字 に 用 い 
られ る か ら で あ る が , 5.7 節 で 説明 し た 関数 YAL を 用 いれ ば , Ж, Н, 
Н, в, >, 秒 を それ ぞ れ 別 の 数 値 と し て 取り 出す こと が で きる 。. 


10 NEN=VAL (MID$ (рАТЕФ, 1 。2) ) 
20 GATU=VAL (МІр% (рАТЕФ, 4,2) ) 
50 HI=VAL (МІрФ (рАТЕФ, 7,2) ) 
40 ZI=VAL (МІЮФ (ТІМЕФ, 1,2) ) 
50 HUN=VAL (МІрФ (ТІМЕ$Ф, 4,2) ) 
80 BYDU=VAL (МІрФ (ТІМЕФ, 7,2) ) 


Жы, スト ッ プ ・ ウ ォ ッ チ の よう に 。 経過 時 間 の 計測 に 使い た い 場 合 
は , ТІМЕ $ と は 独立 に PTME と いう 変数 が あり , 計時 開始 時 点 で ここ 
に 0 を 入れ て お いて (ҚАХТІМЕ-0і:5) 終了 時 点 に 読み 出せ ば 
(た と えば PRINT TIME) と すれ ば 経過 時 間 (単位 は 秒 ) が わか 
る . 
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6.1 БЕ жЕ 


入出 力 に 関し て は , 既に 3 章 で INPUT 文 と PRINT 文 に つい て 説 
明 し た . 普通 の 用 途 に は , この 二 つ を 覚え て いれ ば 十分 で 。 た いて い の 
こと は それ だ け で 用 が 足り る . 

о», 少し 高度 な 使い 方 を し よう と する と 「 こ うい うこ と が で きれ 
ば よい が …」 と か 「 も っ と 簡単 に 書け れ ば 便利 な の に …」 と いう こと が 
出 て くる 。 その 場合 , 他 の プロ グラ ミン グ 言 語 だ と 。 た いて い 「 そ うい 
うこ と は 文法 上 で き な い 」「 甘 っ た れ た こと を 言う な 」 と 門前 払い を 食わ 
せる と ころ で ある が , パソ コン の BASIC は , その 点 , 行き と どい て い 
T, まあ た いて い の こ と な ら ば で きる 仕掛 け に な っ て いて ,。 機械 語 や ア 
セン プ ブラー を 使わ な く て も パソ コン の 機能 を フル に 活用 で きる よう に 
な っ で いる 。 

それ だ け に 文法 は ちょ っ と 複雑 で ある が , 最初 か ら 全部 覚え を な く て も 
よく , だ いたい どん な こと が で きる か を ざっ と 目 を 通し て お いて , あと 
は 必要 に な っ た と き に 必要 な 事項 だ け 勉 強 す れ ば よい . 

この 章 で は , 

A H 

出 2 

ファ イル 入出 力 
の 順に 説明 する . 
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6.2 READ 文 と DATA ў 


これ まで の プロ グラ ム 例 で は ,。 デー ター の 入力 方 法 と し て 。 
入力 の 指示 を INPUT 文 で 書く 
実際 の デー ター は 実行 時 点 に 入れ る 
と いう 方 法 を と っ て きた が , も う 一 つの 方 法 と し て 
デー ター を プロ グラ ム と 一 緒 に 入れ て お く 
その 入力 指示 を READ 文 で 書く 
と いう こと が で きる 。 すなわち 。 入力 すべ き デー ター を 
DATA 1 番目 の デー ター, 2 番目 の デー ター。… 
(これ で 書き きれ な けれ ば 。 同じ 形式 で 何 行 で も 並べ る ) 
の 形 で プロ グラ ム の 中 (普通 は プロ グラ ム の 最後 の 所 ) に 書き 。 それ を 
READ 文 で 読む . READ 文 の 書き 方 は INPUT 文 と 同じ 形 
READ 変数 名 , 変数 名 。 … 
で ある . INPUT 文 と READ 文 の 違い は 
INPUT 文 は , 実行 時 に 端末 機 か ら デ ー タ ー を 読む 
READ 文 は , DATA 文 で 書い た デー ター を 読む 
と いう 点 に ある . DATA 文 と READ 文 の 組合 せ に よる 方 法 に は 次 の よ 
うな 利点 が ある . 

1 ) 統計 の 計算 な どの 場合 , 同じ デー ター を いろ いろ な 手法 で 解析 し 
た いこ と が ある . そ うい うと き 同 じ デ ー タ ー を 何 度 も 入力 し な いで 済む . 

2) デバ ッ ク の と き , テス ト ・ デ ー タ ー を 何 度 も 入れ る の は めん どう 
で ある が , この 方 式 な ら 一 度 入 れん る だ け で よい . 

3) この 方 式 だ と , ВЕВТОВЕХжФН Од [807—7 – о] 
の 位置 に も どれ 」 と いう 指示 が で きる . 251,5, 一 つの プロ グラ ム の 
中 で , 同じ デー ター を 何 回 も 読む こと が で きる . 
要する に , INPUT 文 で 入力 し た デー ター は すぐ 消え て し まっ て あと に 
残ら な い の に 対し , DATA 文 で 書い た デー ター は プロ グラ ム の 一 部 と 
し て 記憶 装置 に 残っ て いる の で , 同じ デー ター を 何 度 も 利用 する こと が 
で きる わけ で ある . 
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~ INPUT 


-- 処理 


プロ グラ ム の 中 に 
DATA 文 で 書い た 


F= 


READ 文 の 書き 方 
READ 変数 名 , 変数 名 , … 
DATA 文 の 書き 方 


DATA 値 , 値 , … 
DATA 文 は プロ グラ ム の 中 の どこ に 書い て も よい ,。 


( 例 1) 10 FEAD А,В ( 例 2) 10 РЕАС А,В 
20 C=A+B 20 С-А%В 
ЗО PRINT С ЗО FEINT “Па 
40 DATA 2.87,-63.1 40 READ П,Е,Ғ 


50 5-ПжЕ/Ғ 

60 FEINT “5-75 
?0 ПАТА 2.87,-63.1 
20 DATA 0.56 

70 DATA 0.02 

100 DATA -8.1 

RUN 

С=-60.23 
5=-1.38272Е-03 


( 例 3) プロ グラ ム の 途中 に DATA 文 を 書い て も よい . 


10 READ A,B,C 
20 DATA 1,-5,6 
30 х=(-В+50Е 6° 2-4жАжС)) / (2А) 
40 PRINT x 
RUN 
3 
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6.3 INPUT$ 


これ は , キー ボー ド か ら 指 定 字数 だ け 読み 込む た め の 機 能 で ,。 文法 上 
は 関数 の 扱い に な っ て お り , その 引数 の 所 に 指定 字数 を 書く . 


標準 的 な 使い 方 は 
文字 列 型 変 数 名 = ニ エ NPUT$ ( 字数 ) 
( 例 ) A$ ニ INPUT$ (6) 
INPUT 文 と の 主 な 違 や は 
1) 命令 で は な く て 関数 で ある . 


2) 字数 指定 方 式 で ある . 
3) 入力 文字 列 の 終り に [J | キー を 押す 必要 が な い . 


4) 入力 要求 を 示す 7 印 も カー ソル も 表示 され な い . 
5 ) 入力 し た 文字 が 画面 に 表示 され な い . 
6) 文字 以外 の キー, た と えば 


な ども , ASCII コー ド の 形 で 読み 込む せこ と が で きる . 
7) 誤っ て キー を 押し た 場合 , カー ソル を も ど し て 訂正 する こと が 
で き な い 、。 


制御 キー が 内 部 で どん な コー ド に な る か を 調べ る に は 
10 A$=INPUT$(1) 

20 К-АВС(А5) 

50 PRINT K 


と いう よう な プロ グラ ム を 走ら せ て ,。 いろ いろ な キー を 押し て みれ ば よ 
い 。 ファ ンク ショ ン ・ キ ー| 豆 1 | 一 [ 豆 5 | を 押す と キー に 登録 され て い 


る 文字 列 (AUTO な ど ) の 先頭 か ら 指 定 字 数 が 読み 込ま れる . 
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例題 1 タイ プ 練 習 

A,B,C,… の キー を 順に 押す よう に 指示 し , 押さ きれ た キー を 調 
л, まち が っ て いた ら エ ラー・ メ ッ セ ー ジ を 出し て 再 入力 させ る プロ 


グラ ム を 作れ . 


[解答 ] 


10 PRINT "АВС...9 イレ テコ "ラン" 
20 TIME$="00: 00:00" 
ЗО FOR K=65 TO 90 


40 A$=CHR$ (К) 

50 ЕФ=ІМРОТФ (1) 

60 РКІМТ B$; 

70 IF А%=НБН% GOTO 100 
во РКІМТ:ІРКІМТ “Fp 91" 
90 GOTO 50 

100 NEXT К 


110 РКІМТ:РКІМТ "774"; ТІМЕФ 


RUN 

АВС...9 LFT ラン 
АВСРЕҒБНІЈКІ_ М 
FP 

MNOFGRT 

са іг ді 

STUVMXYZ 

74 L00: 00: 22 


[備考 ] 1) 上 の プロ グラ ム は 大 文字 と し て 入力 する こと を 前 提 に し て 
いる か ら , |OAP| キ ー を 押し て 大 文字 シフ ト に ロッ ク し て か ら 練 習 する 
е, 

2) TNPUT$ は 関数 で ある か ら , TE 文 の 条件 式 の 中 や , 代入 文 の 
文字 列 式 の 中 に 書く こと が で きる . 上 の プロ グラ ム も , エコ ー を 表示 す 
る 必要 が な けれ ば , 次 の よう に 短く な る . 


10 PRINT "АВС...9 イレ テコ "ラン リ 

20 ТІМЕФ= "00: 00:00" 

ЗО FOR К=&5 ТО 90 

40 IF ІМРОТФ (1) < >СНКФ (К) THEN ВЕЕР: БОТО 40 
50 NEXT К 

60 РКІМТ "714": ТІМЕФ 
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6.4 INKEYs 
これ は 「 キ ー ボ ー ド の 現在 の 状態 *] を 調べ る 関数 で 


キー を 押し て いれ ば , その 文字 が 入力 され る 
キー を 押し て な けれ ば , 空 列 (WW) が 入力 され る 


関数 で ある が 引数 は 不要 で , 普通 , 
文字 列 型 変数 名 =INKEY$ 

( 例 ) А$=ІМКЕҮ$ 

の 形 で 用 いる . 


前 節 で 説明 し た INPUT$ と 同様 

[3] キー を 押す 必要 が な い 

? 印 も カー ソル も 表示 され な い 

入力 し た 文字 が 画面 に 表示 され な い 

文字 以外 の キー を 入力 する こと が で きる 
な どの 点 が INPUT 文 と 異な り , そう いう 意味 で は 

ІМРОТ$(1) 
と よく 似 て いる が , INPUT$ は キー を 押す まで 待つ の に 対し , INKE 
Y$, キー を 押し て な けれ ば 「 押 し て な い 」 と いう 情報 を 返し て 先 に 進 
む , と いう 点 が 異な る . 


ж 主旨 と し て は 。 本 文 の 説明 どおり 「 現 在 の 状態 」 を 調べ た い の で ある 
が 。 じ つ は 入力 バッ ファ ー と いう 待合 室 の よう な 所 が あっ て , キー ボー ド か ら 
入っ て きた 文字 は , そこ に 並ん て 入力 命令 を 待つ 。 と いう 方 式 に な っ て いる 。. 
普通 は 入力 と し て 要求 され た デー ター だ け を 入力 する か ら , キー ボー ド か ら 
入っ て きた 文字 は 直ちに 処理 され , 入力 バッ ファ ー は ,。 たい てい 。 空 に な っ て 
いる . し か し 誤操作 や イタ ズラ で キー ボー ド か ら 余 分 な 文字 が 入っ て いる k, 
まず 入力 バッ ファ ー の 内 容 が 読み 込ま れる た め , 必ず し も 「 現 在 の 状態 」 に 一 
致し な いこ と が あり うる 。. 
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6.5 LINE INPUT 


これ は |』| キ ー が 押さ れる まで を 一 つの 文字 列 と し て 入力 する 命令 
で , 次 の 形式 で 書く . 


LINE INPUT 文字 列 型 変数 名 
また は 
LINE INPUT "AJER" , 文字 列 型 変数 名 


普通 の TNPUTT 文 と の 違い は 

= Ф: やり 印 を 含む 文字 列 を その まま 入力 で きる 

読み 込み 先 の 変数 名 は 一 つ し か 書け な い 
( 例 ) LINE INPUT A$,B$ は 誤り . 

= 入力 待ち を 示す 7 印 は 表示 され な い ("入力 要求 メッ セー ジ 『 の 

あと を : 印 に し て も ? 印 は 出 な い ). 

な ど で あ る 。. 

典型 的 な 用 途 と し て は , 文章 の 入力 , 記号 列 (数 式 な ど ) の 入力 , プ 
ログ ラム の 入力 (た と えば プリ ・ プ ロ セ ッ サ ー を BASIC で 書く 場合 ) な 


ーー ニー ニー ニーー ニ ーー ニーー ニ ーーーーーー ニ ーーーーーーーーーー ニ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー っ 


オー ト ・ リ ピー ト 機 能 の ON, OFF "キー ボー ド 入 力 の と き , p- 
を 長く ( 約 1/2 秒 以上 ) 押し て いる と , 同じ キー を 何 回 も 続け て 押し た 
! の と 同じ 効果 に な る (まだ 知ら な か っ た 人 は 実際 に すぐ や っ て みる と 
| よい . た と えば A の キー を 長く 押し て いる と , 画面 上 に AAAAAA… | 
と 表示 され る ). これ を オー ト ・ リ ビー ト 機 能 と いい 。 カー ソル の 移動 | 
その 他 に 便利 な も の で ある が , INPUT$ や INKEY$ の 際 に は ジャ | 
マ に な る こと が ある . そう いう 場合 は [CTRL| キ ー と [SHTTT| キ ー į 
を 押し な が ら |O| の キー を 押せ ば よい . オー ト ・ リ ピー ト を 再開 し た い 
4 


хав [стві] [SHIFT]} [1] の キー を 押す . 


(OPSE ESSEESID EESEL EES 


М 
% 
М 
% 
1 
% 
М 
% 
% 
М 
% 
% 
% 
И 
% 
% 
% 
И 
% 
И 
% 
И 
% 
% 
% 
% 
% 
% 
% 
% 
% 
Ч 
' 
Ч 
% 
` 
% 
% 
% 
Ч 
% 
+ 
% 
$ 
| 
1 
% 
1 
% 
И 
' 
% 
% 
М 
% 
И 
% 
М 
% 
МЧ 
% 
% 
% 
% 
% 
“ 
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6.6 PRINT USING 


これ は 出力 書式 を 詳し く 指 定 し た い 場 合 に 用 いる 文 で 
PRINT USING" 書式 指定 " : 出力 項目 の 列 
の 形 で 書く . 書式 は 次 の よう な 形 で 指定 する . 


+ 符号 (実際 に は 数 値 の 頭 に 付く ) . 小数 点 を 出力 する 位置 


в 。 数字 を 出力 する 位置 тэн 空白 に し て お く 位 置 


( 例 ) PRINT USING"+##.### ";А; В 
сжіз, ГАВЖ 
符号 は 数 値 の 前 に 付け る . 正 は 十 , 負 は 一 で 表わす 
整数 部 に 2 桁 と る 
左 か ら 4 字 目 に 小数 点 を 打つ 
小数 部 に 3 桁 と る 
その 右 に 1 字 分 の 空白 を 入れ る 


と いう 形 で 出力 せよ 」 と いう こと を 表す . 


1) 先頭 の 位置 に 「#」 を 書く と , 正 の 場合 の 符号 表示 が 十 印 で な 
く 空 白 に な る . 

2) 符号 を 右 に 付け る こと も で きる . それ は 十 か ー を 右 に 書く こと 
に よっ て 指定 する .「 一 ] 印 は 上 記 1 ) と 同様 , 「 キ + サ プレ ス 」 の 意味 . 
( 例 ) PRINT О51МО"!###.##+";Х 

3) 整数 値 と し て 右 づ めで 表示 し た い 場 合 は 「 .」 印 は 不要 . 

( 例 ) PRINT USING"+###";N 

4) 3 桁 ご こと に コン マ を 入れ る こと も 可能 . 

( 例 ) PRINT USING"+#,###,###";KINGAKU 

5) 指数 部 付き の 形 (浮動 小数 点 表示 ) で 出力 し た い 場 合 は , жс 
へ へ へ へ を 付け る . 指数 部 は 選 土 ベベ の 形 で 出力 され る の で 常に 4 桁 
必要 で ある . 

6 ) 文字 列 を 出力 する 場合 は 次 の よう に 書く . 

( 例 ) PRINT USING"& u 4", А$ 
この 場合 を も 含め た 字数 分 の 出力 場所 が 確保 きれ 左 づめ で 出力 され る . 
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[プロ グラ ム 例 と 出力 例 ] 
10 А-234.56 
20 РРІМТ USING" +###. #6 {А +234.56 
ЗО PRINT ШІМ "ЯНЕ. НЕ" А 234.56 
40 FRINT USING" +#HHH. H" ҘА +234.6 
50 FRINT USING ##HHH. "3А 234.6 
60 FRINT USING" +## #87 А +235 
70 PRINT LISTING ЯНЕ" ТА 235 
80 РЕІМТ USING" +#.####";A %+234 。5600 
最後 の % 印 は 桁 数 オー バー の た め 指 定 書式 どう り に 出力 で き な い こと を 
表す . 
10 А=.00123 
20 PRINT ШЅІМБ "#.##° 997: А 
RUN 
0.12Е-О2 


7) 先頭 に きま LE AEO ЖЕПК <. 

8) 先頭 に ま * と 書く と 数 値 の 左側 の 欄 内 余白 は * 印 に な る . 

9 ) 先頭 に * と 書く と , 数 値 の 頭 に ま 印 が 出力 され , 欄 の 左端 か ら 
壮 印 まで の 余白 は * 印 で うめ られ る . 


10) & 空 白々 箇 & と 書く と ,。z 十 2 字 ( い いか えれ ば 両端 の & も 含 
め て 数 えた 字数 ) 分 の 表示 場所 が 確保 され , 文字 列 変数 (一 般 に 文字 
列 式 ) の 値 (文字 列 ) が 左 づ めで 出力 され る ( 逆 に , 文字 列 の 方 が 長 
い 場 合 は , 先頭 の n 字 が 出力 され る ). 

11) 書式 制御 用 以外 の 文字 は その まま 出力 され る 。. 


[プロ グラ ム 例 と 実行 例 ] 


10 Аже "ЯВСрЕЕ" ЕОМ 
20 Вф= "РОК" ABC 
ЗӨ PRINT USING"& &";Н® РОК ABCDE 


40 PRINT USING"& в." ; BSAS 
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6. 7 TAB と SPC 


これ ら は PRINT (また は LPRINT) 文 の 中 で 用 いら れ , 
mAB(z) は 「 左 か ら ぁ ヶ 字 目 の 位置 まで スキ ッ プ せよ 」 


SPC(z) は 「z 字 分 の 空白 を 出力 せよ 」 
と いう こと を 表す 。 


( 例 ) 10 PRINT "0122450789012254557890" 
20 А--753 
ЗО РКІМТ AiTAB(12)』a 
40 FRINT ТАВ(2);А;ТАВ(120;А 
50 PRINT ТАВ (5) ; А; ТАВ (12) ;А 


RUN 
O12 さ 456789012 さ 456789O0 
-733 -753 

-753 -753 


[注意 ] TAB に よっ て 現在 位置 より 左 に も どる こと は で き な い 。 あえ て その 
よう な プロ グラ ム を 書け ば , 次 の 行 の 指定 位置 に 次 の 項目 を 出力 する . 


( 例 ) 10 FRINT "0123456789012345678901234567890" 
20 А--753 
ЗО РКІМТ TAB(12);A;TAB(3);A 


RUN 
01254585789012545578901254557890 
-753 
-753 
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6.8 STRING$ 


これ は 文字 列 型 の 関数 で , 普通 は 
STRTING$( 字数 , "文字 !) 
の 形 で 書き , 第 2 引数 に 書か れ た 文字 を , 第 1 引数 で 指定 され た 箇 数 
だ け 並 べた も の を 表す . 


( 例 ) STRING$(3, "К ) は "KKK り と 同等 
一 般 に は 
STRTNGS( 数 値 型 変数 名 , 文字 列 型 変数 名 ) 
で も よい . 第 2 引数 で 指定 され た 文字 列 が 2 字 以 上 の 場合 , 先頭 の 文 
字 の み が 有 効 で ある . 


(使用 例 ) STRING$ は, 簡単 に 棒グラフ を 描か せ た い 場合 に 便利 で 
ある . 以下 に 示す の は sin を の グラ フ を STRTNG$ で 描か せ た 例 で あ 
>. 


10 FOR Х-й TO x STEP 1720 
20 LPR INT 5ТВЇМб%‹3@ж51М СХ), "ж") 
30 МЕХТ Х 


жжжжж 

жжжжжжжжж 

жжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжеж-жжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжж 

жжжжжжжжж 

жжжжж 
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6.9 カセ ッ ト ・ テ ー プ へ の 記録 と 再生 


カセ ッ ト ・ テ ー プ に デー ター を 記録 する に は , 最初 に 
ОРЕМ "О", #&5, 。! フ ァイル 名 『 
に よっ て 。 カセ ッ ト ・ テ ー プ を 出力 に 使う 旨 を 宣言 し , 
PRINT # 番 号 , 出力 項目 の 列 
に よっ て 出力 し , 最後 に 
CLŌSE #1 
に よっ て ,。 デー ター の 終り を 表す 印 を テー プ に 書き 込む . こう し て 記 


録 し た テー プ を 再生 する に は , まず 
ОРЕН "І", #%5, "771" 

に よっ て 。 カセ ッ ト ・ テ ー プ を 入力 に 使う 旨 を 宣言 し 。 
INPUT # 番 号 , 入力 項 目 の 列 

に よっ て 入力 し , 最後 に 
CLOSE #1 

に よっ て 。 終了 し た 旨 を コン ピュ ー タ ー に 知ら せる 。 


[備考 ] 1) ファ イル 名 は 13 宇 以内 で 大 文字 , 小文字 , 数 字 , カナ 文字 , 
記号 (コジ シマ 。 апу, セミ コロ ン 以 外 ) を 使用 で きる . 

2 ) 番号 は 1 か ら 15 ま で 使え る が , MAXFILES 文 (205 ペ ー ジ 参照 ) 
で 指定 し た 値 (指定 し な けれ ば 1 ) を 越え て は いけ な い . 


6.9 カセ ッ ト ・ テ ー プ へ の 記録 と 再生 127 
例題 2 デー ター の 記録 , 再生 
デー ター lis の “sn を キー ボー ド か ら 読 み 込み 、 カセット ・ テ ー プ 


に 記録 する プロ グラ ム 。 お よび それ を 再生 する プロ グラ ム を 作れ . 


[解答 ] デー ター を キー ボー ド か ら 入 力 す る に は , か な り の 手間 が か か 
る か ら 。 一度 入れ た デー ター は , な る べく カセ ッ ト ・ テ ー プ か ディ スク 
に 記録 し て 保存 し て お く 方 が よい 。 ここ に 示す の は , その よう な プロ グ 
ラム の ひな 型 で ある 。 後日 , デー ター を 識別 する た め に , 何 か タ イト ル 
(表題 ) を 付け て お く こ と に する . デー ター の 人 箇 数 N も 記録 し て お く 方 が 
便利 で ある . ファ イル 名 は キー ボー ド か ら 入 力 す る よう に し た . こう し 
な いと 同じ 名 前 の ファ イル が た くさ ん で き て し まう . 

(記録 ) 


9) КЕМ ec コ デビ ME ーー と ee 
20 INPUT "97КА?" , TITLES 

50 INPUT ケニー グー 2 ARTN aN 
40 DIM A(N) 

ЗО FOR Ігі TO М 


60 INFUT АІ) 
70 NEXT I 
ВО. REM ーーーーーーー save ------- 


90 INPUT "ファ イル メイ N?",F$ 
100 ОРЕМ "0", #1,Е% 

110 PRINT %1,ТІТІЕ% 

120 PRINT #1, № 

150 FOR 1=1 ТОМ 

140 PRINT #1,A(1) 

150 NEXT I 

160 CLOSE #1 

170 END 


(再生 ) 


10 КЕМ ------- пай еее. 
20 ІМРОТ "ファ イル 34 NP", ЕФ 
50 OPEN "І",;%1,Ғ% 

40 INFUT #1,ТІТ_ЕФ 

50 INPUT #i,N 

60 FOR 1=1 TO N 

70 ІМРОТ %1,А(1) 

ВО МЕХТ І 

90 CLOSE #1 
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6. 10 文字 の 特殊 な 表示 方 法 


点 減る させ る 文字 を 点滅 きせ た いと き は 


CFLASH 1 
と 命令 する . この 命令 実行 後に 表示 され る 文字 は 点滅 表示 と な る . 普通 
の 表示 に も どす と き は 

CFLASH О (また は 単に CFLASH) 


と する 。 
反転 させ る 文字 を 


[ш аиы 
икыкш ы ЫШ 


の よう に 反転 表示 し た いと き は 


СЕМ 1 
と 命令 する . 普通 の 表示 に も どす に は 
CREV O (また は 単に CREV) 
と すれ ば よい 。 
拡大 する 文字 を 2 倍 に 拡大 し て 表示 する こと が で きる 。 
CSIZE О 普通 の 大 き さ 
CSIZE 1 縦 方 向 の み 2 倍 に 拡大 
СВІ?Е る 横 方 向 の み 2 倍 に 拡大 
СВІ?Е 5 縦 。 横 と も 2 倍 に 拡大 


CSIZE を 用 いる 場合 は PRINT #0 と いう 文 で 出力 し な けれ 
ば いけ な い (#00 ОРЕМ, CLOSE は 不要 ). 
色 を 付け る COLOR 文 を 用 いる . 7.5 節 参照 . 
画面 上 の 指定 位置 に 表示 エ LOOAT 包 に よっ て カー ソル を 指定 位 
置 に 移し , それ か ら PRINT 文 で 出力 すれ ば よい 。 位置 の 指定 は 
LOCATE 左 か ら 何 字 目 , 上 か ら 何 行 目 
と 書く . た だ し , RAE, 縦 位 置 は 左端 , 上 端 が 0 で ある . 
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7.1 機能 紹 介 


図形 を 表示 する に は , 最低 限 。 次 の こと が で きれ ば よい . 
画面 を 消す . 
指定 され た 位置 に 点 (ドッ ト ) を 表示 する . 
これ さえ で きれ ば , あと は 工夫 し だ いで どん な 図形 で も 描け る が , 
指定 され た 2 点 を 直線 で 結ぶ 
指定 され た 点 を 中 心 と し , 指定 され た 半径 で 円 を 描く 
指定 され た 位置 に , 指定 され た 文字 を 書く 
な どの 機能 が あれ ば , さら に 便利 で あろ う . また (カラ ー・ グ ラフ ィ ッ 
ク ・ デ ィ ス プレ イ や プリ ンタ ー を も っ て いれ ば ) 
色 の 指定 
デリ ンタ ー へ の 出力 
な ども で きる よう に する 必要 が ある . 
本 機 に は , この た め に 次 の よう な 命令 が ある . 


PSET 点 を 表示 
PRESET 点 を 消す 
LINE 直線 を 引く 
CIRCLE 円 を 描く 
COLOR 色 の 指定 
РАІМТ 色 を ぬる 
НСОРҮ プリ ンタ ー に 出力 する 


その ほか , スケ ー リ ング (寸法 調節 ) や ズー ミン グ (定義 し た 図形 の 一 
部 分 の み を 拡大 し て 表示 ) な どの 機能 も ある . 
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7.2 や オープニング ・ セ レモ ニー 


本 機 の 場合 . LINEE 文 や CIRCLEE 文 を いき な り 使 っ た ら , 何 も 表 示 
きれ な い 。 グラ フィ ッ ク 関 係 の 命令 を 使う に は , SCREEN 文 に よっ て 
「 グ ラフ ィ ッ ク ・ モ ー ド の 宣言 」 を し て お く 必 要 が ある 。 それ に は 。 普 
18, 

SCREEN 0,0,0 
と 書け ば よい *. パラメーター と し て 0。0。0 以 外 の も の を 書く こと も で 
きる が , それ は 特殊 な 用 法 で ある (7.13 節 参照 )、 も っ と 簡単 に 
ІМІТ 
と 書い て も よい . INIT と いう の は 本 機 独特 の 命令 で 「 画 面 表 示 関係 の 
指定 を すべ て 標準 状態 に も ど せ 」 と いう 意味 を も つ **, 前 に 誰か が ( ま 
た は 自分 が ) グラ フィ ッ ク 関 係 の プロ グラ ム を 実行 し た 場合 に は 。 な る 
べく INIT 文 に よっ て 標準 状態 に も ど し て か ら 使 う 方 が 安全 で ある . 


ж GRAPH 0,0,0 と 書い て も よい . GRAPH と SCREEN に は 同一 
の 命令 で ある . 

жж INIT} initialize (初期 化 ) の 意味 で ある . 3.16 節 で 説明 し た よう 
に , RUN コ マン ド て 実行 を 開始 すれ ば 変数 の 名 は すべ て 初期 化 さ れる (数 値 
変数 の 値 は 0 に な り , 文字 列 型 変数 の 中 味 は 空 に な る ) 25, 画面 表示 関係 の 指 
定 は 継続 する の で , 初期 化し た けれ ば 1RNT 呈 文 に よっ て 行なう 必要 が ある . な 
5, INIT 文 で 初期 化 さ れる の は , COLOR, CGEN, CFLASH, CRE 
V, CSIZE, PALET, PRW, WINDOW, CONSOLE, SCREEN 
の 各 命 令 の 指定 を も ちと に も どす だ け で あっ て 。 WIDTTH 文 の 指定 は 変更 され 
F, まな た 画面 消去 も さき されない. 
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7.3 画面 消 去 
画面 消去 は CLS 文 に よっ て 行なう . 


文字 だ け を 消す 
グラ フィ ッ ク だ け を 消す 


グラ フィ ッ ク と 文字 を 同時 に 消す 


画面 の 一 部 分 し か 消え な い 場 合 後述 の WINDOW 文 。 CONSO 
Ех БС Бос, 表示 領域 が 制限 され て いる と 一 部 分 し か 消え な い . 
WINDOW (0,0)-(519,199) 
CONSOLE 0,25 
(パラ メー ター を 省略 し て , 
WINDOW : CONSOLE 
と し て も よい よう で ある 。 前節 で 説明 し た INIT 文 を 用 いて も よい ) に 
よっ て 領域 制限 を 解除 し て か ら CLS 文 を 実行 すれ ば よい . 
ПЕ) WINDOW: CONSOLE 
CLS 4 
G3) CLS 4 
WINDOW: CONSOLE 
全然 消え な い 場 合 後述 の マル チ ・ ペ ー ジ 機能 を 用 いて いる 場合 
CTLS 文 は 「 現 在 書き 込み 中 の ペー ジ 」 だ けし か 消去 し な い . 
SCREEN 0,0 \ 


SCREEN 1,1 \ 、 ў 
сһв 4 j ペー ジ 1 を 消去 


と すれ ば 全部 消え る . た だ し , 上 記 の まま だ と ペー ジ 1 の 指定 に な っ て 
し まう か ら ,。 ペー ジ 0 を 使用 し た けれ ば , あら た め て 

SCREEN 0,0 
と する 必要 が ある . 
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7.4 ж ж 系 


本 機 で は 次 の 2 種類 の 画面 座標 系 を 用 いる こと が で きる 。. 
1) WIDTH 40 と 指定 する と 。 1 行 の 文字 数 は 40 字 , 図形 表示 は 
320х200 Р となり, 画面 座標 系 は 次 の よう に な る . 


0 319 
0 х ヵ ラ ー で 2 画面 
モノ クロ で 6 画 
面 使用 で きる 。 
199 
у 


2) WIDTH 80 と 指定 する と , 1 行 の 文字 数 は 80 字 , 図形 表示 は 
640※200 ド ッ ト と な り ,。 画面 座標 系 は 次 の よう に な る 。 


0 639 
0 x カラ ー で 1 画面 
モノ クロ で 3 画 
面 使用 で きる . 
199 
У 


[解説 ] 1) と 2) の どちら を 使 お うか と 迷う か も し れ な い が , 筆 者 は 1 ) 
の 方 を 推奨 する . 1 ) だ と 縮尺 比 (画面 座標 1 単位 の 実際 に 表示 され る 長 
а) が 縦 方 向 , 横 方 身 と も ち だ いた い 同 じ ぐ らい な の で , 320x200 mm の 
方 眼 紙 (1 mm 目盛 ) の つも り て 画面 を 使え ば , だいたい 思い どおり の 形 
を 描く こと が で きる . それ に 対し 。 2 ) だ と 縦横 の 縮尺 比 が 違う の で 。 い 
ろ い ろ と や っ か いで ある 。. 

「 1 ) の 方 は 表示 が 粗い か も …… 」 と 心配 され る 向き が ある か も し れ な 
い が , 320x200 F v h と いえ ば MZ-80B と 同じ で , 実用 上 は これ で 十分 
で ある . 横 方 向 を 640 ド ッ ト に する な ら 縦 方 向 も 倍 の 400 ド ッ ト に し な け 
れ ば 意味 が な く , そ うす れ ば 確か に 優雅 な 曲線 が 描け る が ,640X400 ド ッ 
ト の 表示 に は , も う 1 ラン ク 上 の パソ コン と 高価 な ディ スプ レイ 装置 が 
必要 で ある . 
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利用 者 座標 系 応用 の 際 に は , 利用 者 は 個々 の 目的 に 適し た 座標 系 
を 用 いる の が 普通 で ある . これ を 利用 者 座標 系 と 呼ぶ こと に し よう . Ж 
の 値 は 負数 に な る か も 知れ な いし , 非常 に 大 き な 値 (た と えば 10") に な 
る か も し れ な い . 他 の パソ コン で は , た いて い 。 画面 座標 し か 使え を ない 
DT, 利用 者 座標 系 か ら 画 面 座標 系 へ の 変換 は 利用 者 が 行なう (プロ グ 
ラム を 書く ) 必要 が あっ た が 。 本 機 で は 図形 表示 の 命令 に 利用 者 座標 の 
値 を その まま 用 いる こと が で きる (座標 変換 は コン ピュ ー タ ー が や っ て 
くれ る ). 


WINDOW ж 利用 者 座標 と 画面 座標 の 対応 関係 は , WINDOW 
文 で 指定 する . 基本 的 な 書き 方 は 
WINDOW (Хь, Yr H Ха, Ур), Itsy H хн, ук) 
画面 座標 系 利用 者 座標 系 
с, この よう に 書け ば 利用 者 座標 系 の x の 変 域 [。 ,*。』] を 画面 座標 系 
DLX, Хе], また 了 の 変 域 [yr , yr] を 画面 座標 の [ Y+ , ょ ] に 
変換 し て 表示 し て くれ る わけ で ある 。 


0 Xe Хе 639 
ЖЫЛЫН ЖҮ, 


利用 者 座標 系 


[解説 ] 上 の 図 に ある よう に , 利用 者 画面 上 で 描い た 図形 の 内 の 指定 さ 
れ た 部 分 だ け を 表示 する テク ニッ ク は シ ザ リ ング (scissoring,. はさみ で 
切り 抜く こと ) と いっ て 。 この よう な 機能 を も た な い コ ンピュータ ー で 
ソフ トウ ェ ア 的 に 実現 し よう と する と か な りお むず か し い . 

本 機 は こう いう 機能 を も っ て いる の で , 後述 の LINE 文 や 
CIRCLEE 文 で 図形 の 一 部 が 画面 の 外 に 出 て も エラ ー に な ら ず , 正しく 
実行 され る . た だ し , 極端 に 画面 を は ずれ る と エラ ー・ メ ッ セ ー ジ が 出 
た り 停 止 し た りす る こと が ある 。. 
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7.5 е の 指定 


EES 色 は 基本 的 に は 次 の 色 番 号 で 指定 する . 


COLOR 文 文字 の 色 と 背 景 の 色 は COLOR 文 に よっ て 指定 する . 
図形 の 色 は , 図形 表示 命令 (LINE 文 , CIRCLE 文 等 ) で 指定 で きる 
が ,「 指 定 を 省略 し た と き の 色 」 は COLOR 文 の 指定 に 従う . 


COLOR 文 の 書き 方 は 
COLOR 文字 や 図形 の 色 
また は 


COLOR 文字 や 図形 の 色 , 背景 の 色 


[備考 ] 1) COOLOR 文 は 「 こ れ か ら 表 示す る 文字 や 図形 ] に 対し て の 
み 有 効 で ある . 既に 表示 され て いる 図形 や 文字 は 変化 し な い . 

2 ) 背景 の 色 は COLOR 文 の 実行 と 同時 に 変る . 

3 ) 文字 の 色 と 背 景 の 色 は 。 上 に 示し た 「 基 本 的 な 色 番 号 」 で し か 指 
定 で き な い (後述 の PALET 番 号 は 図形 に 対し て の み 有 効 )。 

4 ) 電源 投入 時 に は COLOR 7,0 の 状態 に な っ て いる . ІМІ 
呈 文 を 実行 すれ ば , この 状態 に も どる. 

5 ) 文字 の 色 と 背 景 の 色 の 組合 わせ で きれ いな の は 


COLOR 7,1 青 地 に 白 
COLOR 7,2 赤地 に 白 


COLOR 1,5 水色 地 に 青 
な ど で あ る . COLOR 0,7 と する と 「 白 地 に 黒 」] に な り そ う で ある 
が 。 実際 に は 何 も 見 えな く な っ て し まう 。 
6) 背景 の 色 は 手動 操作 で 変え ん る こと も で きる . それ に は |OTRL| 
キー を 押し な が ら 色 番号 の 数 字 キー を 押せ ば よい . ーー 
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バレット 番号 に よる 色 の 指定 左記 の 色 番 号 は 他 の 多く の パソ コン 
で も 用 いら れ て いる 標準 的 な コー ド で あり , 特に 指定 を し な けれ ば 色 番 
号 と 表示 され る 色 の 対応 は 左記 の よう に な る が 。 も し 必要 が あれ ば , Z 
の 対応 関係 ( 色 コ ー ド 表 ) を 変更 する こと が で きる . この よう な 「 ユ ー 
ザー が 決め た 色 番 号 」 の こと を パレ ッ ト 番 号 と いう . 


パレ ッ ト 番 号 と 色 番 号 の 対応 は PA エ 選 F 文 に よっ て 指定 する . 


PALET パレ ッ ト 番 号 。 色 番 号 
パレ ッ ト 番 号 と し て は 0 一 7 を 指定 で きる . 


( 例 1) РАҺЕТ 1,2 
PALET 2,6 
РАҺЕТ 5,4 
РАҺЕТ 4,5 
РАҺЕТ 5,1 


РАҺЕТ 6,5 


0 1 2 3 4 5 6 7 
он) ж 黄 ж ж 青 Ж (А) 
に な る 。 
( 例 2) РАҺЕТ 5,0 
と し , 他 の 色 番 号 は 変更 せ ず , 背景 は 0 ( 黒 ) と すれ ば , 色 番号 3 で 描 
か れ た 図形 を 見 えな くす る こと が で きる 。 あ と で 
РАҺЕТ 5,5 
と すれ ば , 再び 見 える よう に な る . 
[備考 ] PALE 文 を 実行 する と , 既に 表示 きれ て いる 図形 の 色 も 全 
部 , 瞬時 に 変る . 文字 の 色 は PAL 選 呈 文 を 実行 し て も 変化 し な い . 
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7.6 直線 を 引く 


直線 を 引く に は , その 両端 点 の 座標 を 指定 し て , 普通 , 
LINE ( 横 座標 , 縦 座標 ) 一 ( 横 座標 , 縦 座標 ) , PSET 
と 書く *. 第 1 の (  ) 内 は 始点 , 第 2 の (  ) は 終点 の 座標 で ある . 


な お 。 前 の 線 分 の 終点 が 次 の 線 分 の 始点 と な る 場合 は 始点 を 省略 し て 
LINE (ЖЕ, ЕЕЕ), РӘЕТ 
と 書い て よい . 座標 は 利用 者 座標 を 使用 で きる . 


( 例 ) LINE (20,80)-(100,50),РВЕТ 
LINE -(150,50),РВЕТ 


線 の 消去 画面 全体 を 消 き ず に 特定 の 線 だ け 消 し た い 場 合 は 
LINE ( 横 座標 , 縦 座標 ) 一 ( 横 座 標 , 縦 座標 , PRESET 
と 書く . 第 1 の (  ) 内 は 始点 , 第 2 の (  ) 内 は 終点 の 座標 で ある . 


点線 や 破線 の 描き 方 LINE 文 の PSET の 後に 
。 色 番 号 。 ラ イン ・ ス タイ ル 


の 形 で ライ ン ・ ス タイ ル と いう の を 指定 で きる . これ は , 点線 , 破線 
な ど を 16 ビ ッ ト の ビッ ト ・ パ ター ン で 表し た も の で 。 た と えば 
一 (以下 これ の くり か え し ) 
と いう 線 を 引き た い の で あれ ば , これ を ビッ ト で 表す と 
1001211111111001 2 進 法 表 現 
9 Е Е 9 16 進 法 表現 
で ある か ら , ライ ン ・ ス タイ ル は & 有 了 H9FF9 と な る (5.8 節 参照 ) 


( 例 ) LINE(0,0)—(30,20),PSET,6,&H9FF9 


ж 中 央 の 一 印 は , 意味 と し て は ハイ フン で ある が ,。 キーボー ド に は ハイ フ 
ン に 当たる 字 が な い の で 。 負 号 (マイ ナス ) を 用 いる 。 
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7.7 四角 を 描く 


LTNE 文 に は いろ いろ な オプ ショ ン を 付け られ る . まず , 基本 形 
LINE ( 横 座 標 , 縦 座標 ) 一 ( 横 座標 , 縦 座標 ) , PSET 


の 次 に 

> ® = ) 
を 書く こと に より , 線 の 色 を 指定 で きる ( 色 番 号 一 7.5 節 参照 また そ 
の 次 に 

* 


を 付け る と , 普通 の LINEE 文 の よう な 直線 は 引か ず , か わり に, 


LINE 文 で 指定 
され た 横 座 標 値 


表示 され る 長方形 


LINE 文 で 指定 され た 縦 座標 値 


の よう な 長方形 が 表示 され る 。「 ,B」 の か わり に 
> BE 
と する と ,。 上 記 の 四角 の 中 が ぬり つぶ され る . 


0 


が 


また , PSETODÐŅ V PRESET と 書く と , 直線 また は 四角 が 消去 
さき れる. 
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7.8 折れ 線 を 描く 


複数 個 の 点 を 結ん で 。 多角 形 や 折れ 線 グ ラフ を 描く に は , LINEXŻ 
何 回 も 使え ば 書け る が 。 本 機 で は 次 の よう に 簡単 に 書く こと が で きる 。. 


書き 方 は 
LINE (С) 9) 
で ある . (х,у) は 各 点 の 座標 で ある . この あと に 
> 色 番号 


を 付け て 色 の 指定 を し た り , さら に 
。 ラ イン ・ ス タイ ル 
を 付け て 点線 等 の 指定 を する こと も で きる . 


[使用 例 ] 矢印 を 描く プロ グラ ム を 作っ て みよ う . 


7000 КЕМ 72 (ХІ, Ү1) 25 (Х2, Ү2) ニカ ウー ヤ シル シラ カク 
7010 LABEL "ARROW" 

7020 DX=X2-X1 : DY=Y2-Y1 

7030 EL=SQR (DXKXDX+DYXDY) 

7040 CA=DX/EL : SA=DY/EL 

7050 Т-лж5/6 

7060 CB=COS(T) : $В=51МСТ› 

7070 R=5 ` 

7080 X3=X2+RX (САжСВ-5$Аж5В› 

7098 Y3=Y2+RX(SAXCB+CAXSB) 

7100 X4=X2+RX (САЖСВ +SAXSB) 

7110 Y4=Y2+RX(SAXCB-CAXSB) 

7120 LINE (X1, Y1)- (X2, Y2) - (X3, ҮЗ) - (X4, Y4) - (X2, Y2) 
7130 RETURN 


[メイ ン ・ プ ログ ラム の 例 ] 


18 X1=39 : Ү1=20 
20 X2=70 : Y2=199 
30 SCREEN 0,0,0 
40 CLS 4 

50 GOSUB "ARROW" 
60 END 
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7.9 正 多角 形 や 星 形 を 描く 


正 多 角形 は LTNEB 文 を 用 いて 描け る が , 本 機 で は POLY と いう 命令 
を 用 いて 非常 に 簡単 に 描く こと が で きる . 指定 方 法 は 次 の と お り . 


POLY (ху) ру 40 өтә би 


中 心 の х 座標 
中 心 の 座標 
中 心から 頂点 まで の 距離 ( 外 接 円 の 半径 ) 


角度 増分 
開始 角度 : 下図 参照 . 角度 の 単位 は 度 (degree) 


終了 角度 


水平 右向き が の 0 


[備考 ] 1) 正 ヶ 角形 を 描く に は 
40 = 360/z Өҳ = の 初 十 360 
と すれ ば よい (の 初 三 90 と すれ ば 頂点 が 真 上 に 来る ). 
2) いさ きか 変則 的 な 使用 法 で ある が 
40 = 144 Ө = 0ұ--720 
と すれ ば 星 形 を 描く こと が で きる (の 初 三 90 と すれ ば 頂点 が 真 上 に 来 
5). 
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7.10 тн を ж ‹ 


аа IZIICIRCLEXŁMOZ, 基本 的 な 書き 方 は 
CIRCLE (中 心 の 横 座標 , 同 縦 座標 ) , 半径 

б, オデ ショ シン し で 
色 番号 一般に は パレ ッ ト 番 号 で 0 一 7 の 値 
縦横 比 円 を 描く た めで ( 縦 径 )( 横 径 ) の 値 *。 


開始 角度 、 円 狐 を 描く た め の も の で , 右向き を 0 度 と し , 反 
終了 角度 ! 時 計 ま わり の 角度 ( 度 , degree 単位 ) で 指定 する . 
を 指定 で きる (上 記 の 順に コン マ で 区 切っ て 書く ). 
座標 は 利用 者 座標 系 で 指定 する こと が で きる 。. 


[使用 例 ] 東京 の 国電 の 地図 を 描い て みよ う . (挿絵 参照 ) 


10 КЕМ === トウ キョ ウ テー ンカ フン -== 

29 INIT 

39 CLS 4 

40 КЕМ ヤマ ノ テ セン 

50 CIRCLE <160,802,80,4,1,0, 180 

68 CIRCLE (160, 1 1 の ) ,89, 4, 1, 180, 360 
70 LINE (80, 802-(<80, 119), PSET, 4 

80 LINE (240,80)-<240, 1192, PSET,; 4 
90 КЕМ テ ュ ウ オウ セン 

108 CIRCLE (180, 100), 20,2, 1, 180,270 
110 LINE (199, 120)-(140, 120), PSET, 2 
120 LINE (189, 100) – (220, 100), PSET 2 
130 CIRCLE (140, 110), 20,2, . 5,270, 360 
140 CIRCLE (180, 110), 28,2, .5, 980, 180 
150 CIRCLE (220, 120), 28,2, 1,0,90 
160 CIRCLE (60,80), 20,2, 1, 0,980 

170 LINE <20,602-<60,602,РЗЕТ,2 

180 REM ソウ フ ~ セン 

199 LINE (220, 190) – (300, 1002, PSET, 6 
200 ЕМО 


ж た だ し 640X200 ド ッ ト (WIDTH 80) の 場合 は 。 本 当 の 縦横 比 の 1/2 
を ここ に 書く (縦横 の ドッ ト 密 度 が 異な る た め )。 
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画面 上 の 指定 位置 に 点 を 表示 する に は , 次 の よう に 書く . 


Р ЕТ ( 横 座標 , 縦 座標 ) 


座標 は 利用 者 座標 系 を 使用 で きる (た だ し WTINDOW , VIEW の 指定 
が な けれ ば 画面 座標 系 の 値 と し て 解釈 きれる. これ は 後述 の LINE 文 
で も 同様 で ある ). 
色 を 指定 し た けれ ば 。 次 の よう に 書く こと が で きる . 
рввт ( 横 座標 , 縦 座標 ) , 色 番号 
パレ ッ ト 使 用 の 場合 は , この 色 番 号 は パレ ッ ト 番 号 と 解釈 され る . 


点 の 消去 画面 全体 を 消さ きず に 特定 の 点 だ け を 消し た い 場 合 は 
PRESET ( 横 座標 , 縦 座標 ) 


[簡単 な 使用 例 ] 


10 REM жжж キラ キラ ホシ жжж 
29 INIT 

39 CLS 4 

40 DEF INT A-Z 

59 N=199 : М=10 

60 DIM Х‹М, YN), С СОМ) 
70 FOR I=0 TO N 


80 Х<12 -КМОжз20 

9 ҮІ) =RND ポ 299 

108 С<1І2 «КМОжбе1 

105 РЅЕТ <Х<12;Ү<с12,С<12> 
110 МЕХТ І 

129 КЕРЕАТ 

130 I =МжЕМО 

149 РБЕТ <Х<12, Ү<12,С<122 
150 = ト MRND 

1609 РКЕБЕТ(х (72, ҮС72,С</22 


178 UNTIL ЕМО-л/5 
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7.12 ぬり っ なす 


閉 曲線 で 囲ま れ た 領域 を 色 で ぬり つぶ す に は , 領域 内 の 1 点 (領域 
内 で あれ ば どこ で も よい * ゞ ) ОЕ х,у と 。 ぬる 色 の 番号 (パレ ッ ト 番 


号 に よる 指定 可 ) с, および, 境界 の 色 番 号 の を 指定 し て 
PAENT (-559256.6 
と 書く . 


( 例 ) 赤い 三角 形 を 描く に は , 赤い 線 で 三角 形 を 描き , 内 部 の 1 点 を 指 
定 し て 赤 で PATNT す れ ば よい . 


18 INIT : COLOR 2 


20 LINE (50, 1702-<120, 30) -<260, 1502 – (50, 170) 
30 PAINT <160, 100:,2,2 


タイ リン グ 本 機 で は , タイ リン グ (tiling, タイ ル 張 り ) と いっ 
T, 指定 し た 色 模 様 で ぬり つぶ すこ と が で きる . これ を 行なう に は 
PAINT 文 の 色 番 号 c の か わり に , Ж, Ж, 緑 の ド ッ ト ・ パ ター ン ( 各 
8 ビッ ト ) を 文字 列 型 の 定数 また は 変数 の 形 で 与え を る. ドッ ト ・ パ ター 


ン は 3 バイ ト が 一 組 で 。 それ が 横 方 向 の ドッ ト ・ パ ター ン を 表し , Z 
組 以 上 指定 し た 場合 に は , 最初 の 3 バイ ト が 1 段 目 , 次 の 3 バイ ト が 


2 段 目 , … の ドッ ト ・ パ ター ン と な る (z 組 指定 すれ ば z 段 ご と くり 
か えす ). (挿絵 参照 ) 


( 例 ) 赤 の 点 と 紫 の 点 を 交互 に 並べ る に は 。 ドッ ト ・ パ ター ン を 
原色 奇数 段 目 16 進 表現 偶数 段 目 16 進 表現 
Н 10101010 АА 01010101 55 
Ж 21111111 FF 111111211 FF 
緑 00000000 оо .00000000 оо 

と すれ ば よい か ら , 色 番 号 の か わり に 次 の よう に 書け ば よい . 
HEXOCHR$( "ААЕЕОО5БЕКОО") 


ж た だ し 始点 が 最初 か ら 色 番号 c に な っ て いる と 。 ぬり つぶ し は 行なわ れ 
な い . 


m ай 359 148 


同様 に し て 各種 の 中 間 色 を 作り , 並べ て 表示 する プロ グラ ム の 一 例 を 
以下 に 示す 。 


10 КЕМ --- チュ ウ カ ン シ ョ グ ク --- 

29 INIT 

39 CLS 4 

48 ОФ=СНЕ%Ф (&НӨ) 

50 А%=СНЕ% (&HAA) 

60 ЕФ=СНЕФ (НЕЕ › 

65 G$=CHR$ (&H55) 

100 КЕМ ァ カ 

118 CIRCLE <(50,502,20,7 

120 PAINT <50,502,2,7 

130 КЕМ アカ ムラ サキ 

140 CIRCLE (199,59〉,29, ア 

159 PAINT (100,50), 4%%Ғ%%0%%0%%Ғ%%0%,7 
160 REM 457+ 

170 CIRCLE <150,502,20,7 

180 PAINT <(150,50),3,7 

190 КЕМ アオ ムラ サキ 

200 CIRCLE <200,502,20,7 

210 PAINT (200,50), F$+A$+0$+F$+G$+0$, 7 
220 REM 77 

239 CIRCLE (250,50),20,7 

248 PAINT (250,50), 1,7 

300 КЕМ ァ カ 

319 CIRCLE (50, 100), 20,7 

320 PAINT (50, 100›,2, 7 

330 REM タラ“ イタ トイ 

349 CIRCLE て 199,199) ,29。 ア 

359 PAINT (100, 100), 0%%Ғ%%4%%0%%Ғ-%%05%, 7 
360 REM キイ ロ 

370 CIRCLE <150, 1002,20,7 

389 PAINT (150,1002,6,7 

390 REM キネ ミト“ リ 

499 CIRCLE (200, 1002,20,7 

410 PAINT (200, 1002, 0%%4а%%Ғ-%%0%%0%%Ғ%, 7 
420 REM ミト “ リ 

438 CIRCLE (250, 1002,20,7 

448 PAINT (250, 199〉,4, ア 

500 КЕМ 77 

518 CIRCLE (50, 159) , 29, 7 

520 PAINT 590, 150), 1,7 

530 КЕМ ウス ァ オ 

540 CIRCLE (100, 150), 20,7 

550 PAINT (100, 150), Е%+0%+А%+ЕФ+0%+6%, 7 
560 КЕМ = ミス “イロ 

570 CIRCLE (150, 150), 29, ア 

580 PAINT %<150,1502,5,7 

590 КЕМ ? ス ミト “ リ 

608 CIRCLE (299,159),29, ア 

618 PAINT (200, 150), 4%%0%%Ғ%%0%%0%%Ғ%,7 
620 КЕМ ミト “ドリ 

る 39 CIRCLE <250,1502,20,7 

640 PAINT (250, 150›,4,7 
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7.13 複数 画面 の 使用 法 


カラ ー 写 真 を 原色 版 で 印刷 する と き は , も と の 写真 を 赤 , Ж, 黄 の 3 
原色 に 分 解 し , HOR, FOR, 黄 の 版 を 作っ て 刷り 重ね る . 

カラ ー・ テ レビ も 同様 で 。 テレ ビ ・ カ メラ に 入っ た 光 を 。 青 , 赤 , 緑 
の 3 原色 に 分 解 し ,。 それ ぞ れ の 画像 信号 を 電波 に 乗せ て 送り 。 家庭 の テ 
レビ の プラ ウン 管 の 上 で 合成 する . 

本 機 で カラ ー 表 示す る 場合 も 同様 で , 


青 の 画面 赤 の 画面 緑 の 画面 


と いう ぐあい に 3 面 分 の メモ リー( 各 16K バ イト ) が あっ て , それ を 画 
像 信号 に な お し て ディ スプ レイ 装置 に 送り 。 プラ ウン 管 の 上 で 合成 し て 
いる . 

7 色 の カラ ー 表 示 を する に は , 上 記 の よう に する ほか な い が , も し も 
モノ クロ (単色 ) Tko, と いう の で あれ ば , 青 の 画面 。 赤 の 画面 。 緑 
の 画面 を それ ぞ れ 別 の (独立 し た ) 画像 メモ リー と し て 使う こと が で 
き る 。 

画像 メモ リー を た くさ ん 持っ て いる と 。 いろ いろ と 面白 いこ と が で き 
る . た と えば , 赤 の 画面 で 何 か 表示 し て お いて , その 間 に 緑 の 画面 に 新 
し い 画 像 を 書き 込ん で お いて ,。 表示 を 緑 の 画面 に 切り 換え る と , パッ と 
新しい 画像 が 表示 され る (複雑 な 画像 を メモ リー に 書き 込む に は , か な 
り の 時 間 が か か る か ら 。 上 記 の よう に し な い 限 り , 瞬時 に 新しい 画像 に 
切り 換え る こと は で き な い )、 

また , 赤 の 画面 に は 地図 を 描い て お いて , 他 の 画面 に 付加 情報 を 描い 
て お いて , 重ね て 表示 する 。 と いう よう な 使い 方 も ある . 
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640X200 ド ッ ト で 表示 する 場合 は , そう いう わけ で 
カラ ー (7 色 ) 表示 な ら ば 1 画面 (第 0 ペー ジ ) 
モノ クロ (単色 ) 表示 な ら ば 3 画面 (第 0 ペー ジ の 赤 , 青 , 緑 ) 
と いう こと に な る が , 320X200 ド ッ ト な ら ば 。 1 画面 に 必要 な メモ リー 
が 半分 で 済む か ら 
カラ ー (7 色 ) で 画面 (第 0 ペー ジ と 第 1 ペー ジ ) 
モノ クロ (単色 ) で 6 画面 ( 各 ベ ー ジ の 赤 , Жі, 緑 画面 ) 
の 使用 が 可能 で ある 。 
(画面 番号 1 ) (画面 番号 2 ) (画面 番号 3 ) 


第 0 ペー ジ 青 の 画面 赤 の 画面 緑 の 画面 
( 色 番号 1 ) ( 色 番号 2 ) ( 色 番 号 4 ) 


(画面 番号 1 ) (画面 番号 2 ) (画面 番号 3 ) 
第 1 ペー ジ 青 の 画面 赤 の 画面 緑 の 画面 
( 色 番 号 1 ) ( 色 番号 2 ) ( 色 番号 4 ) 


グラ フィ ッ ク 機 能 を 用 いる 際 に は , これ ら の 内 の 
どの ペー ジ の , どの 画面 に 書き 込む か 
どの ペー ジ の , どの 画面 を 表示 する か 
を 指定 する 必要 が ある . この 内 。 ペー ジ の 指定 は 次 の よう に 書く . 


組合 わせ は 次 の 4 通り し か な い . 


SCREEN 0,0 第 0 ペー ジ を 使用 、 書き 込ん で 。 す 
SCREEN 1,1 第 1 ペー ジ を 使用 ! ぐに 表示 する . 
SCREEN 0,1 0 ペー ジ を 表示 し , 1 ペー ジ に 書き 込む 
SCREEN 1,0 1 ペー ジ を 表示 し , 0 ペー ジ に 書き 込む 

標準 状態 は SCREEN 0,0 T, 電源 投入 時 , リセ ッ ト 時 , INI 
T 文 実行 時 に は この 状態 に も どる . 
画面 消去 命令 CLS は ,「 書 き 込 むせ ペー ジ 」 に 対し て の み 作 用 する . 
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複数 画面 の 使用 法 に 慣れ る た め の 人 簡単 な プロ グラ ム 例 を 以下 に 示す . 


10 INIT : CLS 4 

20 FOR Ісі TO 3 

30 Р=1ж20 

406 0=Р +206 

50 LINE (Р,Р) – (0, 0), PSE T。 7, ВЕ 
る 9 NEXT І 

70 CLS : PRINT "シロ イ №29 32 カキ マシ クリ 
89 PAUSE 39 

90 CLS 4 

100 FOR Ісі ТОЗ 

119 SCREEN 0,0,1 

129 Р=1ж2@ 

138 Q ロ =P+29 

149 LINE (Р,Р) -– (0, 0), PSET, 7, BF 
159 NEXT 1 

160 CLS : PRINT "カカ “メン 1,2,32 フケ テカ クト 227972" 
170 PRINT “イロ パフ ゴウ КУЕ 7 77207 122322 АП” ツキ マス " 
180 PAUSE 70 

1990 CANVAS 3,5,6 

200 CLS : PRINT "CANVAS 3,5,6 7°" 
210 PRINT "イロ ラ カエ マシ タク" 

220 PAUSE 560 

230 CANVAS 2,7,1 

240 CLS : PRINT "CANVAS 2,7,1 7°" 
250 PRINT "пэ カエ マシ クタ" 

260 PAUSE 50 

270 CANVAS 6,0,0 

280 CLS : PRINT "CANVAS 6,0,0 ғ" 
298 PRINT “カテ メン 1 ヴァ ケラ Ену" " 

300 PAUSE 50 

310 CANVAS 0,6,0 

320 CLS : PRINT "CANVAS 0,6,0 77" 
339 PRINT " カ " メ ン 2 2779 ба?у”" 

340 PAUSE 50 

350 CANVAS 0,0,6 i 

360 CLS : PRINT "CANVAS 8,0,6 ғ" 
379 PRINT “カド メン З 9°73 Ба?" " 

389 PAUSE 50 

390 CANVAS 7,7,7 

400 CLS : PRINT "CANVAS 7,7,7 7“ " 
410 PRINT “3 2°77 トモ t399" 

420 PAUSE 50 

430 CLS 1 

440 CLS : PRINT "CLS 1 7“ " 

450 PRINT "カカ "メン 1 9779 ショ ウキ ョ " 

4 る 9 PAUSE 50 

479 CLS 2 

480 CLS : PRINT "CLS 2 7“ " 

490 PRINT "N°23 2 = уа??та" 

500 PAUSE 50 


41 


520 CLS : PRINT "CLS 3 7“ " 
530 PRINT "2° хи 3 = уз?та" 
540 PAUSE 50 

550 CLS : PRINT " オ ワ ウリ" 
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画面 番号 の 選択 ペー ジ の 選択 は 簡単 で あっ た が , 画面 番号 の 選択 
は 少々 や っ か いで ある . じつは , いろ いろ な 方 法 が ある が 。 話 を 簡単 に 
済ま せる に は , 次 の よう に 説明 する の が よい で あろ う . 


書き 込む 画面 の 番号 は SCREEBEN 文 に 第 3 の パラ メー ター を 付け 


て 指定 する *. 
SCREEN 表示 ペー ジ , 書き 込み ペー ジ , 画面 番号 


( 例 ) SCREEN 1,0,2 
[注意 ] 上 記 の 方 式 を 用 いる 場合 に は , あら か じ め 

COLOR 7,0 
と し , グラ フィ ッ ク 命 令 の 色 指 定 欄 は (も し 書く と すれ ば ) すべ て 色 番 
号 7 に し て , 要する に 図形 を すべ て 白 で 描く と よい . 白 以 外 の 色 が 指定 
され た 場合 , 書き 込む 画面 の 本 来 の 色 (た と えば 1 番 な ら ば 青 ) 以外 の 
ビッ ト は 無視 され る . 


表示 する 画面 の 選択 は CANVA8S 文 に よっ て 行なう . これ は 次 の よ 
うに 書く . 
CANVAS с, о, с 
ЕТГІ» 
кл 
с» は 第 2 画面 の 表示 色 番 号 , 値 は 0 一 7 の 整数 
прена 


(1) CANVAS 0,0,7 と すれ ば , 第 1 画面 , 第 2 画面 の 内 容 は 
表示 され ず , 第 3 画面 が 色 番号 7 ( 白 ) で 表示 され る . 


ж SOREBEN 文 の 第 3 パラ メー ター と し て 1 3 を 指定 する と モノ クロ 
書き 込み に な る . これ を 普通 の (カラ ー 7 色 の ) 書き 込み 可能 な 状態 に もどす 
сіз, 第 3 パラ メー ター を 0 に すれ ば よい 。 
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7.14 画面 の 前 後 関係 の 指定 


本 機 で は , 複数 画面 を 重ね て 表示 する 場合 , 画面 の 前 後 関係 を 指定 す 
る こと が で きる . 前 後 関係 し いう の は , ある 物体 が 。 も う 一 つの 物体 の 
手前 に ある か 向う 側 に ある か , と いう こと で 。 具体 的 な 表示 技術 と し て 
は 。 同一 の 点 に 二 つ の 色 指 定 が な され た と き ,。 どちら の 色 で 表示 する か 
(どちら の 画面 指定 を 優先 する か ) と いう こと で ある . これ は LAYER 文 
で 指定 する . 


LAYER 文字, 画面 1 。 画 面 2 , 画面 3 


оғаш” 一 ーーー ゴ 


数 字 1, 2, 3。4 で 指定 


( 例 ) 遠景 を 画面 1 で 描き , 近 景 を 画面 3, その 中 間 を 画面 2 で 描く に 

は , 画面 3 を 最 優先 。 次 を 画面 2, 次 を 画面 1 と すれ ば よい か ら , 
LAYER 1,4,5,2 

と 指定 する (文字 は , 特別 な 事情 の な い 限 り ,。 1 に し て お く ). 

[簡単 な プロ グラ ム 例 ] 


18 INIT : CLS 4 
20 CANVAS 1,2,4 
30 LAYER 1,2,3,4 
48 FOR I=1 ТОЗ 


50 SCREEN 0,0,1 

68 Р=1ж20 

70 Q=P+30 

89 LINE (Р,Р2-(0, Q), PSET。 7, BF 
90 NEXT 1 


100 CLS : PRINT "7° х2 1,2,3: (29 カキ マシ クタ" 
110 PRINT "LAYER 1,2,3,4 Кд“ コウ ナリ マス " 
120 PAUSE 79 

130 LAYER 1,3,2,4 

140 CLS : PRINT "LAYER 1,3,2,4" 

150 PRINT "К シテ イス レ い "コウ ナリ マス 『" 

160 PAUSE 50 

170 LAYER 1,4,3,2 

180 CLS : PRINT "LAYER 1,4,3,2" 

190 PRINT "к シテ イス レコ ウナ リマ ス 『 

200 PAUSE 59 

210 LAYER 1,2,4,3 

220 CLS : PRINT "LAYER 1,2,4,3" 

230 PRINT "К シテ イス ズレ“ コウ ナリ マス " 

248 PAUSE 50 

250 CLS 4 : PRINT "277" 
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7.15 文字 表示 領域 の 指定 


画面 の 使用 目的 に は 。 大 別して 
/ 文字 表示 (数 字 や 文字 の 入出 力 に 用 いる ) 
図形 表示 
が あり , 普通 は 画面 全体 を 両方 に 共用 する わけ で ある が ,。 CONSOLE 
文 で 指定 すれ ば , 文字 表示 領域 を 画面 の 一 部 分 だ け に 制限 する こと が で 
525, それ に は 次 の よう に 書く . 


CONSOLE 何 行 目 か ら , 何 行 分 


た だ し 行 番号 は 一 番 上 が 0 T, 一 番 下 が 24 で ある . 


( 例 ) 上 5 行 だ け を 文字 領域 に 指定 する の で あれ ば , 
CONSOLE 0,5 
本 機 で は , 横 方 向 の 領域 制限 ( 何 字 目 か ら 何 字 分 を 文字 領域 と し て 使 
うと いう 指定 ) も 可能 で ある . それ は 次 の よう に 書く . 


CONSOLE 何 行 目 か ら , 何 行 分 。 何 字 目 か ら , 何 字 分 
た だ し 横 方 向 の 位置 は , 左端 が 0, 右端 が 39(WIDTH 40 の 場合 ) 


また は 79 (WIDTH 80 の 場合 ) で ある . 


[解説 ] 1) スク ロー ル は , CONSOL 紀 文 で 指定 し た 範囲 内 で 行なわ 
れる . 

2) LOCATE 文 を 用 いれ ば , 文字 表示 領域 外 に 文字 を 表示 する こと 
が で きる . た だ し その あと , カー ソル を 文字 表示 領域 に ち ど し て お か な 
いと いけ な い .。 

3 ) 本 機 の 場合 , 文字 領域 の 指定 を し な く て も , 文字 の スク ロー ル に 
伴っ て 図形 が スク ロー ル さ れ て し まう 危険 は な いし ,。 文字 が じゃ まな ら 
[SHIFT]+ [GLR| で 文字 だ け を 消せ ば よい か ら , 普通 は CONSOLE 
文 を 使わ な く て も よい . 
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7.10 amfate 


X1 用 の プリ ンタ ー が あれ ば , 画面 (文字, 図形 と も ) を プリ ンタ ー で 
コピ ビー する こと が で きる 。 


НСОРҮ 文字 だ け を コピ ー 

HOCOPY О 図形 だ け を コピ ー 

HOCOPY 4 文字 と 図形 の 両方 を コピ ー 
以上 が 普通 の 表示 の コピ ー 方 法 で ある . 複数 画面 の 内 の 一 つ を 選ん で 
コピ ー す る に は , まず 8SCREEN 文 の 第 1 パラ メー ター で ペー ジ を 指 


定 し (画面 に 表示 され て いる 方 の ペー ジ が コピ ー さ れる ), 画面 番号 は 
次 の よう に 指定 する . 

HOCOPY 1 

HOCOPY 2 

HOCOPY 5 
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7.17 GET@ 文 と PUT@ 文 


文字 や 図形 を 表示 する 機能 の 一 つと し て , 
文字 や 図形 の ドッ ト ・ パ ター ン を 配列 に 入れ て お く 
それ を 画面 上 の 指定 位置 に 表示 させ る 
と いう こと が 簡単 に で きる と 便利 で あろ う . 用 途 と し て は , た と えば 


漢字 を 表示 する 

回 路 図 の 部 品 記号 を 表示 する 

会 社 や 製品 の シン ボル ・ マ ー ク を 表示 する 
模様 を 描く 


画面 を ディ スク や テー プ に 入れ て 保存 する 
な ど が 考え られ る . これ を 行なう の が GT @ 文 と PUT@ 文 で ある . そ 
の 使用 法 に は 各種 の バリ エー ショ ン が ある の で 詳し い 説 明 は 省略 する が , 
上 記 の よう な 目的 の 場合 に は 次 の よう に 書け ば よい . 


GET@ (左端 , 上 端 ) 一 (右端 , 下端 ) , 配列 名 , 色 番 号 


РОТЕ (左端 , 上 端 ) 一 (右端 Кіп) , 配 列 名 , PSET 


ここ で 左端 , 上 端 , 右端 , 下端 は ドッ ト を 読み と る 区 域 。 あ る い は 表 
示す る 区 域 で , 画面 座標 ( 横 座標 と 縦 座標 ) で 指定 する . 配列 の 型 は 文 
字 列 型 で な けれ ば よく ,。 要する に 指定 し た 区 域 の ドッ ト 数 ,、 すなわち 
(右端 一 左端 二 1) x (下端 一 上 端 十 1) 

に 。 モ ノ ク ロ な ら ば 1, カ ラー 
( 色 番 号 を 7 と する ) な ら ば 3 
を 掛け た も の を 収容 で きる だ 
け の ビッ ト 数 が あれ ば よい 
(実際 の 扱い は バイ ト 単 位 だ 
か ら 上 記 の 値 を 8 で 割り , іш 
数 を 切り 上 げ る ). 
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[使用 例 ] GET@ 文 ,PUT @ 文 の 簡単 な 応用 と し て , 画面 に 表示 され 
て いる 図形 を カセ ッ ト ・ テ ー プ に 記録 する プロ グラ ム ,。 お よび それ を 再 
表示 する プロ グラ ム を 作っ て みよ う .。 画面 全域 を カラ ー で 記録 , 再生 す 
る の は , 記憶 容量 や 所 要 時 間 の 点 で 大 変 な の で , 図形 は 単色 ( 色 番 号 IR 
O は 1,2 ま た は 4 と する ), 範囲 は XMTN <x < ХМАХ, YMI 
N <y < YMAX (画面 座標 で 指定 ) と する . 


画面 セー プ ブ の プロ グラ ム 


8999 REM --- БЕТӘ --- 

8010 LABEL "СЕТ" 

8020 КЕМ シェ イ хл" + > ラメ ー ラ ター 

8030 КЕМ хтіп, хтах, ymin, ymax, iro 
8040 КЕМ タタ トシ іго=1,2, тауда 

8050 NX=XMAX-XMIN+1 

8068 МҮ=ҮМАХ-ҮМІМ+1 

8078 МЧ= ІМТ ‹ (МХЖМҮ+7) /8) ノ 2+1 
8080 DIM ви ‹чи) 

8098 бЕТӘ (XMIN; ҮМІМ) - (XMAX, ҮМАХ», GX, IRO 
8100 INPUT "ファ イル メイ ロタ" ЕФ 

8110 OPEN "О", #1,F$ 

8120 FOR Ісі ТО NM 

8130 PRINT й81,6%(12;", "; 

8140 МЕХТ 1 

8150 CLOSE #1 

8160 RETURN 


画面 ロー ド の プロ グラ ム 


8170 REM --- PUT --- 

8180 LABEL "РОТ" 

8190 REM シテ イィ イ 242% M ラメ アー ター 

8299 КЕМ xmin, хтах, ymin, ymax, iro 
8210 REM 99-: іго-1,2, 7214 

8220 NX=XMAX-XMIN+1 

8230 NY=YMAX-YMIN+1 

8240 NB=INT ¢(NXxNY+7)}7/8)/2+1 
8250 DIM 6х (NW) 

8260 LABEL "PUT2" 

8270 INPUT "774424?" F$ 

8280 OPEN "I", #1,F$ 

8298 FOR 1=1 TO NM 

8300 INPUT #1,6Ж(1› 

8310 NEXT 1 

8320 CLOSE #1 

8330 PUTƏ(XMIN, ҮМІМ) - (XMAX, YMAX) , 0%, PSET, る 
8340 RETURN 


メイ ン ・ プ ログ ラム の 例 (ARROW は 138 ペ ー ジ 参照 ) 


10 X1=19 : Y1=10 

20 X2=59 : Y2=39 

30 SCREEN 0,0,8 

48 COLOR 4 : CLS 4 
58 GOSUB "ARROW" 

60 XMIN=X1 : YMIN=Y1 
70 XMAX=X2 : YMAX=Y2 
80 ІК0О-4 

98 GOSUB "GET" 

100 REW 

110 CLS 4 

120 GOSUB "PUT2" 

130 END 
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7.18 г 用 例 ( 挿 絵 参照) 


例題 1 一 一 一 AA 
| 月 食 を アニ メ 風 に 表示 する プロ グラ ム を 作れ . | 


[解答 ] いろ いろ な 方 法 が 考え られ る が , 以下 に 示す プロ グラ ム は ,。 8 
CREEN 文 に よる マル チ ・ ペ ー ジ 機能 を 用 いて 書い て ある . 月 食 の 場 
合 , 表示 する 円 (Н) と 隠す 円 (地球 ) の 半径 比 が か な り 大 きい が , Ж 
際 の と お り に する と 「 何 も 見 えな い 時 間 」 が 長 す ぎ て ぐあい が 悪い の で , 
この プロ グラ ム で は や や 小さ な 比率 を 用 いて いる . 


18 КЕМ --- LUNAR ECLIPSE --- 
20 INIT 

39 CLS 4 

40 PALET 5,й 

50 CIRCLE (140, 1802, 35,6 

68 PAINT <160, 100), 6,6 

70 FOR ※X= る 9 ТО 260 STEP 280 
80 SCREEN 0,1,0 

90 CLS 4 

108 CIRCLE <160, 1002; 35, & 
110 PAINT <160,1002,6,6 

120 CIRCLE (X, 1002,60,5 

130 LINE <(0,02-<319,1992; Р56ЕТ,5,В 
140 PAINT (X, 1002,5,5 

150 X=X+10 

160 SCREEN 1,0,0 

170 CLS 4 

180 CIRCLE (160, 1002, 35,6 
190 PAINT (1650, 100), 6, ё 

208 CIRCLE (X, 100), 60,5 

210 LINE 0,0) - (319, 199), PSET, 5, В 
220 PAINT (X, 100,5, 5 

230 МЕХТ Х 

248 SCREEN 0,1,0 

258 CLS 9 

268 CIRCLE (1650, 100), 35,6 
270 PAINT (160, 1002, 6,6 

280 SCREEN 1,1,0 

290 END 
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例題 2 国旗 
世界 各国 の 国旗 を ディ スプ レイ する プロ グラ ム を 作れ . 


[解答 ] 国旗 の ディ スプ レイ は グラ フィ ッ ク 関 係 の 命令 を 習得 する た め 
の 格好 の 題材 で ある . 百 ぐ らい 国 が あっ て , フラ ンス の よう な 簡単 な も 
Оо, プラ ジル の よう に ,。 と て も 作れ そう も な いよ うな も の まで 。 V 
ろ い ろ な 難易 度 の も の が ある が , 色 は 原色 の も の が 多く , パソ コン で 表 
示す る に は 好都合 で ある . 
以下 に は , 比較 的 作り 易い も の 35 ヶ 国 の 旗 を 作っ て みた 例 を 示す . 7 
メリ カ 。 イギリス, 中 国 な ど ,。 結構 手間 の か か る も の が あり , これ だ け 
作る の に まる 2 日 ( 約 10 時 間 ) 使っ た . 読者 は これ を 全部 作る 必要 は な 
い 。 自分 の 実力 に 合っ た も の を 選ん で 作っ て みれ ば よい と 思う 。 また 。 
ソ連 を は じ め ,。 いく つか の 重要 な 国 が 入っ て いな いか ら , 自分 で 工夫 し 
て 作っ て みる と よい . 
この プロ グラ ム を RUN さ せる と , た だ ち に 入力 要求 (? 印 ) が 出る . 
ここ で , 表示 し た い 国 名 を カナ 文字 で 入力 する (た と えば 日 本 な ら ば 
ニホン | 

と する ). その 組 り は 文字 列 型 変数 エ $ に 読み 込ま れ , それ が ラベ ル と し 
て GOSUB 文 の 行先 指定 に 用 いら れ , 国名 の ラベ ル の 付い た サブ ルー チ 
ン (た と えば 日 本 な ら ば 行 120 か ら 始 まる "ニホン 『) が 呼び 出さ れる . 
国旗 の 表示 が 済む と 行 60 に も どり , 約 10 秒 間 表 示し た 後 , 画面 を 消し て 
次 の 国 の 処理 に 進む . 表示 し て いる 間 , 何 も し な い の で は つま ら な い の 
T, 次 章 で 説明 する PLAY 文 に よっ て , ユダ ス ・ マ カベ ウス の 得 賞 歌 を 
演奏 する こと に し た ( 行 60。 70). 

いく つも の 国 に 共通 の 処理 は 。 サブ ルー チン で 処理 する . それ ら は , 
プロ グラ ム の 最後 に まとめ て ある . 星 形 は 7.9 節 で 説明 し た 方 法 に よっ て 
表示 し て いる . 

ニュ ー ジ ー ラ ンド の 旗 は 左上 に イギリス の 旗 が 入っ て いる の で 。 МІ 
NDOW 文 を 活用 し て , うま く 処 理 し て いる . リビア に つい て も 同様 で あ 
る (WINDOWW 文 を 用 いて トル コ 国 旗 を 縮小 表示 し て 利用 ). 
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10 WIDTH 40 

29 INIT 

39 INPUT 1%: CLS 

40 IF 1%="77)" THEN END 

50 GOSUB 1% 

る 9 PLAY "9У80467Е6ҒЗО?С?ОЗЕҒКОӨЕЗЕрӘНК5" 
70 PLAY "E3FGAG5SG05SC704GFSED6 る C3C8BR5" 
80 CLS в 

90 INIT 

100 BEEP 

118 GOTO 30 

120 LABEL "ニホン リ 

130 (ІІМЕ<0,02-<319,199)2,Р5ЕТ,7,БВҒ 
140 CIRCLE て (169。199) , 60,2 

159 РАІМТ 160, 199) 2 

140 RETURN 

170 LABEL "2327" 

188 ісі : M=7 : N=2 

190 GOSUB "273" 

200 RETURN 

218 LABEL “イオ クリ ニー" 

220 CLS 9 

230 L=4 : M=7 : N=2 

248 GOSUB "773" 

250 RETURN 

260 LABEL "^+" -" 

270 L=9 : М-6 : N=2 

280 GOSUB "773" 

298 LINE (8, 0)-(A, 199), PSET, 7, B 
300 RETURN 

310 LABEL "кл" 

320 L=0 : М=2 : N=6 

330 GOSUB "з23" 

340 LINE <0,02-<319, A), РБЕТ,7;Б 
350 RETURN 

360 LABEL "オラ ンタ " 

370 L=2 : Ме? : N=1 

380 GOSUB “з23" 

390 RETURN 

400 LABEL "オー スト リ ァ リ 

410 し =2 : M=7 : N=2 

428 GOSUB "313" 

439 RETURN 

440 LABEL "Nn ンカ "リー" 

450 L=2 : M=7 : N=4 

458 GOSUB "323" 

470 RETURN 
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480 
490 
500 
510 
520 
530 
548 
550 
568 
570 
580 
590 
608 
6180 
620 
639 
648 
658 
る る 9 
670 
680 
698 
708 
710 
720 
730 
740 
750 
760 
770 
780 
798 
899 
819 
820 
830 
840 
850 
868 
870 
880 
890 
ヶ 99 
910 
920 
930 
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LABEL "ЛА" 

LINE (0,02-<319,1992,Р5ЕТ; 1, ВЕ 

D =3 1 ノウ 

FOR 1=-D TO D 
ІІМЕ(1І,02-<31941,199),Р5БЕТ,7 
_ІМЕ (І, 199) - (319 +1, 02, PSET, 7 

МЕХТ І 

D =25 

FOR I=-D TO +D 
ШІМЕ<(1,02-<(319%1,199;),Р5ЕТ, 2 
LINECI, 199) - (319 +1, 02, PSET; 2 

МЕХТ І 

Е=70 : Ғ=199-Е 

LINE (0,Е2-<319,Е);) PSET, 7, ВЕ 

6=319ж. 4 : Н=319-Ғ 

LINE 6,0) - Н, 1992, PSET, 7, ВЕ 

E=89 : Е=199-Е 

LINE (0,Е2-<319,Ғо, РЅЕТ, 2, ВЕ 

6=137 : Н=319-5 

LINE (6,0) - Н, 199), PSET, 2, ВЕ 

RETURN 

LABEL "チリ リ " 

LINE (0,0)-<319, 100), PSET, 7; BF 

LINE 0,101) - (319, 1992, РБЕТ, 2, ВЕ 

LINE 0,0) – (100, 100), РЅЕТ, 1, В 

POLY 580,50), 25, 1, 144, 90,810 

PAINT (1,1), 1,1 

POLY (508,50), 25, 7, 144, 90,810 

RETURN 

LABEL "272%-2" 

LINE (8, 02-<319,199)2,РБ5ЕТ, 2, BF 

LINE (0,832-<319,1172,Р5ЕТ,7,ВҒ 

LINE <83,02-<117; 199), PSET, 7, ВЕ 

RETURN 

LABEL "2412" 

LINE (0,02-<319,199),Р5БЕТ,2,ВҒ 

LINE 90,80) - (230, 120), PSET, 7, ВЕ 

LINE <(140,302-(<180, 1702, PSET, 7, BF 

RETURN 

LABEL "スウェー テン フ " 

LINE (0,02-<319,1992,Р5ЕТ, 5, ВЕ 

LINE 0,83) - 319, 117›,РЅЕТ, 6, BF 

LINE (83,0) - (117, 199), РЅЕТ, ó, BF 

RETURN 

LABEL "+ УР" 

LINE 0,0) - (319, 199),РЅЕТ, 1, ВЕ 
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940 

950 

968 

970 

980 

990 

1900 
1010 
1028 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1340 
1370 
1380 
1390 
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LINE <(0,802-<320, 120), РЅЕТ, 7, ВЕ 
LINE (140, 02-<180, 199), PSET, 7, ВЕ 
RETURN 

LABEL "ノルウェー" 

LINE (9, 0) – (319, 1 の の) , PSET, 2, BF 
LINE (0,842-<319,1162,Р5ЕТ, 7, ВЕ 
LINE <84, 0) - 116, 199), РЅЕТ, 7, ВЕ 
LINE (0,38) - 319, 112), РЗЕТ, 1, ВЕ 
LINE 88,0) - 112, 199), РЅЕТ, 1, ВЕ 
RETURN 

LABEL "アイ スラ ント ~ 『" 

LINE (8, 0) - (319, 1 の 9 の 9),PSET, 1, ВЕ 
LINE (0,842-<319;,1162,Р5ЕТ,?7,БҒ 
LINE (84,02-<116,1992,РБЕТ, 7, ВЕ 
LINE <(0,882-<31%9,1122; PSET, 2, ВЕ 
LINE (88,02-<с112,199)0; PSET, 2,БҒ 
RETURN 

LABEL "モナコ" 

LABEL "イン ト " ネ シヤ " 

LINE (0,02-<319,992,Р5ЕТ,2,БҒ 
LINE (0,1002-<(319,199)2,РСбЕТ, 7, BF 
RETURN 

LABEL “"ІУЛЕ?І"" 

L=4 : М=& : N=2 

GOSUB "323" 

RETURN 

LABEL PR " 

LINE (0, 02-<319,992,Р5ЕТ,7,ВБҒ 
LINE «0, 100) – (319, 199), РЅЕТ, 2, ВЕ 
RETURN 

LABEL "アァ アメリカ" 

L=2 : M=7 : N=13 

GOSUB "ヨコ シマ " 

LINE <(0,02-<141,1072; Р5ЕТ, 1, ВЕ 
DX=142/1 1 : рү=108/9 


HX=D メ ノ 2 5 HY=DY ノ 2 
FOR Ісі TO 9 STEF 2 
Y= IDY-HY 
FOR J=1 TO 11 STEP 2 
Х=Јжрх-нх 
POLY (X; Y); З, 7, 144, 90,810 
NEXT J 
NEXT I 
FOR 1=2 ТО 8 STEP 2 
Y=IXDY-HY 


FOR J=2 TO 10 STEP 2 
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1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
1618 
1620 
1630 
1640 
1850 
1660 
1670 
1680 
1698 
1700 
1710 
1720 
1730 
1740 
1750 
1768 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
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Х=Јжрх-нх 
POLY (X, Ү2; 3,7, 144,90,810 
NEXT J 


NEXT 1 
RETURN 
LABEL "#19" 


LABEL "チェ コス ロウ >???" 
L=7 : M=2 : N=2 
GOSUB "ヨコ シマ" 
LINE (9,9)-(169。199) , PSET, 1 
LINE <(0,02-<0,1992;Р5ЕТ,1 
LINE (160, 100) - (0, 199), Р5ЕТ, 1 
PAINT <1,22,1,1 
RETURN 
LABEL "キュ =" " 
L=5 : М=7 : N=5 
GOSUB "3377" 
LINE (0, 0)-<(160, 100), РЅЕТ, 2 
LINE (0,0) – (0, 1992, PSET, 2 
LINE (10, 190) - (0, 1992, РЅЕТ, 2 
PAINT (1,2), 2,2 
POLY (508, 100), 35, 7, 144, 90,810 
PAINT 50, 100), 7,7 
FOR Ісі 70 5 
С-2жі/5 
Х=59+30жС05 <ІжСжл/22 
Ү=100-30ж5ІМ‹ІЖС+7/2) 
PAINT Х,У), 7,7 
МЕХТ І 
RETURN 
LABEL “LI スラ ウィ ア “ 
LABEL "1-2" 
іші : M=7 : N=2 
GOSUB "азз" 
POLY <160, 1802, 80; 6, 144,90,810 
PAINT <160,1080;2,2,6 
FOR Ісі ТО 5 
С=2ж1/5 
Х=160+30жС05 ‹ІжС+л/2) 
Ү=100-30ж5ІМ‹ІЖжС+л/2) 
PAINT СХ, У), 2, る 
МЕХТ І 
FOR Е-29 ТО 31 
POLY (160, 1002, БК,2, 144,90-36,810 
NEXT R 
RETURN 


表 
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1860 
1870 
1880 
1890 
190880 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2108 
2110 
2128 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2206 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
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LABEL "YAn yz" 
L=2 : M=7 : N=11 
GOSUB "ヨコ シマ " 
LINE (0,0) - (91,91),РЅЕТ, 1,BF 
POLY (45, 45), 35,7, 144, 90,810 
PAINT (45, 45), 7,7 
FOR Ісі Т0 5 
С=2ж/5 
Х=45+309жС05 ‹ІжС+л/2) 
Ү=45-30ж5ІМ‹ІЖС+Л/2) 
PAINT (X; Y); 7,7 
NEXT I 
RETURN 
LABEL "№72" 
X1=9 : X2=169 : X3=320 
Y1=9 : Y2=199 : ҮЗ=200 
LINE <Х1,Ү12-<Х2, Ү22, РЅЕТ, 7, ВЕ 
LINE (X2, Y1)- (ХЗ, Ү22,РЗЕТ, 2, BF 
LINE «Х1, Ү22- (X2, ҮЗ», Р5ЕТ, 1, ВЕ 
LINE (X2, Ү2) - (ХЗ, Y3), PSET, 7, ВЕ 
POLY (80,50), 35, 1, 144, 90,810 
PAINT (80,50), 1,1 
FOR Ісі ТО 5 
С-гжл/5 
Х=80+30жС05 (IKC +172) 
Ү=50-3З@ёж51МС1жС+л/2› 
PAINT <(Х,Ү5;1,1 
МЕХТ 1 
POLY (240, 1502, 35,2; 144,90,810 
PAINT (240,150;2,2,2 
FOR Ісі ТО 5 
С-2жл/5 
Х-240%ЗӨжСО5 ‹Іжс+7/2) 
Ү=150-30ж5 ІМ‹ІЖС +7/2) 
PAINT СХ, Ү2,2,2 
NEXT І 
RETURN 
LASEL "2-5" =з " 
WINDOW (0, 0) – (159,99), (0, 0) – (319, 199) 
GOSUB "イキ "リス " 
WINDOW (0, 0) – (319, 199), (0, 0) – (319, 199) 
X1=9 : X2 ら =169 : Х3=320 
Y1=9 : Ү2-100 : Y3=299 
LINE (X2, Y1)-(X3, Ү22, PSET, 1, ВЕ 
LINE (X1, Y2) - (X2, ҮЗ); PSET; 1, BF 
LINE (X2, Y2) - (ХЗ, Y3), PSET, 1, BF 
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2320 
2330 
2340 
2350 
2368 
2370 
2380 
2390 
2408 
2418 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2548 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2698 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 


X9=249 : Y9=49 : R=12 : ІР0=2 
GOSUB "жу" 

X9=299 : Y9=?9 : R=12 

GOSUB "mz" 

X9=2 の 9 : Y9=89 : R=10 

GOSUB "жи" 

X9=249 : Y9=179 : R=15 

GOSUB "жи" 

RETURN 

LABEL "アラ フレ ンコ ウリ 

L=2 : М=7 : N=9 

608508 “з13" 

LINE <0,В2-<319,С2;)Р5ЕТ,7;В 
X9=115 : Y9=199 : R=39 : ІКО-4 
GOSUB "жи" 

X9=295 : Y9=199 : R=39 : ІКО-4 
60508 "жи" 

RETURN 

LABEL "41-72" 

L=2 : М=7 : N=0 

GOSUB "313" 

LINE <(0,В2-<319,С2,Р5ЕТ,7;В 
X0=160 : Y9=199 : R=30 : ІКО-4 
GOSUB "жу" 

RETURN 

LABEL "437" 

L=2 : M=7 : N=0 

GOSUB "333" 

LINE (0,В2-<319,С>2;Р5ЕТ,7;В 
Xð=80 : Y9=199 : R=39 : ІКО-4 
60508 "ホシ 

X9=169 : Y9=199 : R=39 : ІК0=4 
GOSUB "жи" 

X9=249 : Y9=199 : R=39 : IRO=4 
GOSUB "жы" 

RETURN 

LABEL "トル コ " 

LINE <(0,02-<320,2002, PSET, 2,ВҒ 
CIRCLE <106, 100), 53,7 

PAINT <106,1002,7,7 

CIRCLE (120, 100), 45,2 

PAINT (120, 1800), 2, 2 

X9=187 : Y9=199 : R=27 : ІВ0=7 
POLY сХе, Ү02, Б, IRO, 144, 180,900 
PAINT (X0, YO, IRO, ІРО 

FOR Ісі ТО 5 
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2789 С-г2жл/5 

2790 メ =X9+。 5жЕжСО5 (1жС+л› 
2800 ҮҮ0-.5жКкжЖбІМСІжЖСжЛО 
2818 PAINT (X, Y), IRO, IRO 
2820 NEXT I 


2830 RETURN 

2840 LABEL "リヒ “ヤリ 

2850 PALET 1,2 

2860 PALET 2,6 

2870 LINE <0, 0) – (320,50), Р5ЕТ, 1, BF 
2880 LINE <0, 150) - (320, 2002; РБЕТ, 4, ВЕ 
2898 LINE (9,51)-(9, 1492; РБЕТ; 7 

2900 LINE <(319,51)-<319, 1492; РБЕТ,7 
2910 WINDOW 80,51) – (240, 1492, (0, 0) – (319, 199; 
2928 GOSUB "トル コ " 

29308 WINDOW 

2940 RETURN 

2958 LABEL "イスラエル" 

2968 DY=199/ る 

2970 LINE (0,02-<319,1992,Р5ЕТ, 7, ВЕ 
2980 LINE <0, DY?) - (319,50) ,РЅЕТ, 1, ВЕ 
2990 LINE ((0,1502-<319,199-рҮ), PSET, 1, ВЕ 
3000 FOR R=43 TO 47 

30108 POLY (160, 1002, Б, 1,120, 30, 390 
3020 POLY <160, 100?, R, 1, 120, 980, 450 
3030 NEXT R 

3040 RETURN 

3050 LABEL "チュ ウゥ で クリ " 

3060 LINE <0, 02-<319, 199), PSET, 2, ВЕ 
3070 X9=55 : Үй-55 : R=40 : IRO=6 
3080 GOSUB "жи" 

3090 R=19 

3100 FOR T=0 TO 3 

3110 х0=53+50жС05 (./4-ТжА/62 

3120 Үв=53-60ж5 ІМ ‹7/4-Тжл/&) 

3130 GOSUB "жу" 

3140 NEXT Т 

3150 RETURN 

3160 LABEL "Б" 

3170 LINE <(0,02-<319,19%92,Р5ЕТ,2,ВҒ 
3180 LINE ‹0, 0) – (142, 1002; РБЕТ, 1, BF 
3190 X0=71 : Y9=59 : К-25 : ІК0=7 
3200 GOUSUB "жи" 

3210 R=8 

3220 FOR Т=1 TO 5 

3230 ТНЕТас2г2жлж(Т7/5%1/82 
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3240 
3250 
3260 
3270 
3280 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7098 
7108 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 


Хд8-71%35жС05 (THETA?) 
Үй=50-35ж5 ІМ‹ТНЕТА) 
GOSUB "жу" 
МЕХТ Т 
RETURN 
LABEL "tz" 
POLY ХӨ, YO), R, IRO, 144, 90,810 
PAINT (X8, YO), IRO, IRO 
FOR Ісі TO 5 
С-2жл/5 
Х-Х0%.5жЕжСО5 ( IXC +172) 
Y=Y0-. 5XRXSINCIXC+N/2) 
PAINT (X, Y〉 。 IRO, IRO 
NEXT I 
RETURN 
LABEL "373" 
A=319/3 : В=319ж2/3 : С=319 
LINE (0, 0) – (аА, 1992, PSET, L, ВЕ 
LINE (A, 9) - (B, 1992; PSET, М, ВЕ 
LINE (B, 8) - С, 199), PSET, М, BF 
RETURN 
LABEL "a13" 
A=199/3 : В=199ж2/3 : С=199 
LINE (0, 062-<319, A), РЅЕТ, L, BF 
LINE (0, А) - (319, В), PSET, М, BF 
LINE (ð, B>- (319, С), РБЕТ, М, ВЕ 
RETURN 
LABEL " ョ コシ マ " 
DY=200/N 
FOR I=1 TO N 
Ү1= 1-1) жрү 
Ү2=1жрү 
IF (I MOD 22-1 THEN IRO=L ELSE IRO=N 
LINE ‹0,Ү1) - (319, Ү22, PSET, IRO, ВЕ 
NEXT I 
RETURN 
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例題 —— 道路 地図 
| 道路 地図 を 描く プロ グラ ム を 作れ . | 


[解答 ] 道路 を 1 本 の 線 で 描く の な ら 簡 単 で も る が , で きれ ば 幅 を 付け 
て 描き た い . それ も ,。 道路 の 幅員 に 合わ せ て , 広い 道 は 広く , 狭い 道 は 
狭く 描き た い . 一 方 。 入 力 デ ー タ ー は な る べく 簡単 に し た い 。 
これ は 簡単 そう に 見 えて , じつは 結構 や っ か いな 問題 で あっ て , 正 攻 

法 で いく と , 連立 方 程 式 を いく つも 解 か な けれ ば な ら な いこ と に な る 。. 
X-Y プロ ッ タ ー で 描か せる 場合 に は そう する 以外 に 手 が な い の で ある 
D, パソ コン の ディ スプ レイ に 表示 する 場合 に は , 非常 に 簡単 な 方 法 が 
ある . その 要点 は 

LTNE 文 で 道 を ぬり つぶ す 

あと で その 輸 郭 線 を 抽出 する 
と いう こと で 。 後半 の 処理 に 少し 時 間 が か か る が 。 ここ は 機械 語 で 書け 
ば 容易 に 高速 化 で きる の で , 原理 的 な と ころ を BASIC で 書く と 次 の よ 
うに な る . 行 460 で 用 いて いる POTNT と いう 関数 は , 画面 座標 を 与え る 
と そこ に 表示 され て いる 点 の 色 番 号 を 教え て くれ る 関数 で ある . 


18 КЕМ ======= が "カゲ ーーー デー テ 
29 DEFINT 1-М 

30 DEFINT Р,О,К 

49 CLS 4 

50 КЕМ チャ ー 人 クー з Sá 

60 READ NP 

70 DIM X(NP?, ҮСЫР» 

80 FOR L=1 TO NP 

98 READ XL), YL? 

100 NEXT L 

110 READ NE 

120 DIM I(NE〉)』J(NE) WNE) 

130 FOR (-1 ТО МЕ 

140 READ І‹2›, ЈА», WCL? 
150 NEXT L 

160 КЕМ ヒョウ シス ル 

179 INIT 

189 MIDTH 49 

190 CLS 4 

200 LINE (0,02-<319,199),Р5ЕТ, 1, BF 
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218 FOR し =1 ТО МЕ 

220 ХіІзХ(1 (03) : YI=YCI(L)) 

239 XJ=X<〈J(L〉) : YJ=Y(J L)? 

249 DX=XJ-XI 

250 DY=YJ-YI 

268 EL =SQR DXwDX+DYwDY〉 

279 C=DX ノ EL 

280 S=DY ノ EL 

290 FOR U=-MMCL) TO WL) STEP .25 
399 х@ё=х1-Иж5 

319 X1 =XJ -UXS 

329 Y9=1 め の - (ҮІ +0жС) 

3308 Ү1=199- (YJ+UXC) 

340 LINE (X8, ҮЙ) - (X1, Y1), PSET, 2 
350 NEXT U 

340 NEXT し 

370 REM --- PART 2 --- 

зве DIM Q(299) ,P(299〉 , 民 〈299〉 

3908 FOR J=1 TO 199 

408 РЈ) =РОІМТ (2, ЈУ 

418 ВЈ) =РОІМТ 3, J) 

428 NEXT J 

438 FOR І-З TO 317 

448 FOR J=1 TO 199 

458 аср-рОО :РО-«ЕОО 

468 RJ) =РОІМТСІ+1, J) 

470 NEXT J 

488 FOR J=3 ТО 197 

490 IF РЈ) =2 GOTO "NJ" 

500 IF P(J-1)=2 THEN РЅЕТ І, Ј, 4) : 
510 IF Р<Ј+1) =2 THEN РЅЕТ І, Ј, 4) : 
520 IF Q(J)=2 THEN РЅЕТ І, Ј,4) : GO 
530 IF КСЈ) =2 THEN РЅЕТ «І, Ј,4) : GO 
5408 IF 07-1) =2 THEN РЅЕТ І, Ј, 4) : 
550 IF Q(J+1)=2 THEN РЅЕТ ‹1,Ј,4) : 
540 IF R(J-1)=2 THEN РЅЕТ (І, Ј,4) : 
570 IF RG〈J+1) =2 THEN РЅЕТ І, Ј, 4) : 
580 LABEL "NJ" : NEXT 

590 NEXT I 

る 99 PALET 1,0 

618 PALET 2,0 

る 29 LOCATE 0,0 

638 INPUT "HARDCOPY? (Y/N) ", I$ 

640 IF I$="Y" THEN HCOPY 3 

650 END 


GOTO "NJ" 
GOTO "NJ" 
TO Ме 

TO "му" 

GOTO "NJ" 
GOTO "NJ" 
GOTO "NJ" 
GOTO "NJ" 


=“ 
— 


例題 1 月 食 


の イス ラン ドド アメ リカ 


イタ リア 


є 
м 
м 
%, 


チェ コス ロ ヴ ァ キ ア 


| | 


トル コ 


7и 


パナ マ 


1 


例題 2 Ж 


X 


1 
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例題 2 国 族 ы 


例題 3 道路 地図 
第 1 部 終了 時 の 画面 を 
РАҺЕТ 2,7 


に より 色 を 変え て 表示 し た も の 


HRRD で の 〇 の PY マ < マン N) 画 


輪郭 線 抽出 の 結果 


1 


実行 終了 後 , キー ボー ド よ り 
РАҺЕТ 1,4:РАҺЕТ 2,6:РАҺЕТ 4,0 
を 指令 し て 着色 し た 図 


タイ リン グ に よる 中 間 色 の 表示 例 (7.12 節 ) 


東京 の 国電 の 地図 (7.10 節 


POKE @ の 使用 例 ( 付録 1 


82704717 SUN 


ТІМЕР1 хх/хх ххх 
T I MER2 хх/хх ххх 
ТІМЕНЗ ババ メン XX SUN 
TIMER4 хх/хх SUN 
T I MERS 04717 XXX 
T I MERG Шх/хх XXX 
TIMER? XXX/XX XXX 


Month 


На ТСЖ 


8т-110:Т- 


上 図 の 表示 に 用 いた プロ グラ ム 
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660 КЕМ テス ト ・ テ *- タ ー 
670 КЕМ NP 

580 DATA 18 

690 КЕМ ХА), ҮС) 
700 бата 0,58 

710 рата 40,40 
720 DATA 100,20 
730 DATA 180,10 
740 DATA 250, 10 
750 DATA 320,30 
760 DATA 0,100 
770 DATA 50, 100 
780 DATA 1080, 100 
790 DATA 190,80 
800 рата 230,90 
810 DATA 270,110 
829 DATA 320,70 
830 DATA 320, 150 
840 DATA ð, 186 
850 DATA 110,150 
860 DATA 200, 150 
870 DATA 320, 170 
880 REM NE 

890 DATA 22 

900 REM Іс), JL), И) 
910 бата 1,2, 6 

ら 29 бата 2,3, 6 る 

ら 39 рата 3,4,6 

ら 49 бата 4,5,6 
950 DATA 5, 6,5 
960 DATA 2,8,3 
970 DATA 3,9,4 

ら 89 DATA 4, 10,8 
990 брата 5,11,4 
1008 DATA 13, 12,3 
1018 DATA 7,8,3 
1920 бата 2,9,3 
1030 DATA 9, 10,3 
19040 бата 10, 11,3 
1050 DATA 11, 12,2 
1060 DATA 12, 14,2 
1070 рата 9, 16,4 
1989 бата 10, 17,8 
1098 бата 11, 17,4 
1108 DATA 15, 15,5 
1110 DATA 16, 17,5 
1120 DATA 17, 18,5 
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(91 ペ ー ジ か ら の 続き ) 


298 GOSUB "カン サン " 

300 民 =N- ІМТ (NZ ア ) ж? 

310 IF К<=1 THEN KARA=-4-R ELSE KARA=3-R 
320 REPEAT 

330 MADE =KARA +ó 


340 IF МАРЕ ›0 (M) THEN МАРЕ =0 (M) 
350 FOR і-кака ТО МАРЕ 

360 COLOR 7 

370 IF I=KARA THEN COLOR 2 
380 IF І-кАКА%4 THEN COLOR 1 
390 IF 1<=0 THEN PRINT SPC ‹6) ; 


ELSE PRINT USING " ## 
408 МЕХТ 1 
418 PRINT 
429 KARA=KARA+7 
430 UNTIL KARA>D (M) 
440 COLOR 4 
450 PRINT : PRINT 
460 END 
470 REM --- 7600. 1.0 2772 日 スウ ミニ カラ サシ = ニー 
480 LABEL "カン サン " 
490 7-Ү-16й00 
500 М2-365ж27%2Ұ4-2Ұ100%2Ұ4060 
510 IF 7208 АМО Ос22<>29 THEN М2-М2%1 
520 М1=С‹М› +1 
539 N=N1+N2 
549 RETURN 


Ф.Я ? 1983,7 


1993 年 月 
B A ж ж ж % に 
1 る 
3 4 5 る 7 8 ヶ 
19 11 12 13 14 15 16 
17 18 19 29 21 22 2з 
24 25 26 27 28 29 39 


ч 
ee 


8.1 PLAY 命令 の 機能 概説 


本 機 は 音楽 演奏 機能 を も ちち, その プロ グラ ム を BASIC で 書く こと が 
で きる 。 
3 声 部 の 和 声 出力 可能 
音 域 8 オク ター プ ブ 
音 量 15 段階 制御 可能 
T, 市 販 の パソ コン の 中 で は (お 値段 100 万 円 也 の ヤマ ハ YIS を 論外 と す 
れ ば ) 高級 の 部 類 に 属す る . 
楽譜 の 入力 方 法 は ,。 MML (Music Macro Language) に 似 た 方 式 で 。 
器楽 また は 声楽 を や っ て いる 人 に は 非常 に 親しみ 易い . MML は 世界 共 
ЖС, 他 の パソ コン も これ に 似 た 方 式 を 採用 し て いる も の が 多い か ら 。 
覚え て お け ば 便利 で ある . 
本 論 に 入る 前 に , 簡単 な 例題 を 示す . 


ій PLHV"EEEFCEEEFBEBCEEDr" 
28 PLHV "EEEFCEEEFBEDCDECF" 
28 РҮ "BEGHHBFEEDDCS.F! 


T, CDE… は 音階 の ドイ ツ 読 み で あり , r は 休止 符 を 表す . 3 行 目 の 
2 . は 付 点 2 分 音符 で ある こと を 表す 接尾 語 で ある . 


168 звано 


8.2 音程 の 表し 方 


音階 は 長調 の 
ド レ ミ AF У ラ シ 
を 
© р Е Е С А В 
で 表す (いわ ゆる ドイ ツ 式 の 読み 方 に 同じ . た だ し HH は 使わ な い )。 いい 
か えれ ば 。, 日 本 式 の 読み 方 の イロ ハニ ホ へ ヘ へ ト が ABCDEF に 対応 する 。 
本 機 の 半音 指定 方 法 は 標準 の MML と 少し 異な り 
# (半音 上 げ ) は , 記号 # を 音 名 の 左 に 付け て 表す 
b (半音 下げ ) は 。 記号 # を 一 つ 下 の 音 名 の 左 に 付け て 表す 
( 例 ) 
ЖЕ ЖА 


同じ C で も , PROC, EOC, ТОС, な ど が ある .。 これ を 区 別 す 
る に は O 印 に よる 音域 指定 を 左 に 付け る (O は octave ОЖ), 

上 の C は O5C 

中 央 の C は бас 

TACE O30C 
最も 低い の が O1, 中 央 が O4, 最も 高い の が O8 で ある 。. 

すべ て の 音符 に これ を 書く の は 大 変 な の で ,。 次 の よう な 規則 で 省略 す 
る こと が で きる 。 

1) O を 書か な けれ ば 「 一 つ 前 と 同じ 」 と みな す 。 

2 ) 電源 投入 時 に は O4 の 状態 に な る .、 た だ し RUN コ マン ド で は 初 
期 化 き され な い . し た が っ て , 何 回 も (また は 何 曲 も ) 演奏 する 場合 の こ 
と を 考え て , 曲 の 最初 に は な る べく 〇 指定 を 書い て お く 方 が 安全 で ある . 

3 ) 現在 は 指定 され て いる オク ター プ ブ の 「 一 つ 上 」 は 十 印 ,「 一 つ 下 」 
は 一 印 で 表す . 

( 例 ) O4 の と き 。 十 ご は 「 上 の C」(O5C), 一 ご は [FC] (O3O) 
を 表す . 


4... 
て も 同様 . 
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8.3 音符 の 長 さ の 指定 


本 機 の 指定 方 法 は 標準 の MML と 異な り , 次 の よう に な っ て いる 。 


Жб 
16 分 音符 А 1 付 点 16 分 音符 А 2 
өзне) з 付 点 8 分 音符 ゆ 4 
4 分 音符 』 65 付 点 4 分 音符 』 6 
2 分 音 待 J 7? 付 点 2 分 音符 2 8 
o 9 


e 長 さ の 指定 は 音 名 の 後 ( 右 ) に 付け る . 
( 例 ) C5 

= 前 ( 左 ) の 音 と 同じ 長 さ の 場合 は 省略 し て よい 。 し た が っ て , 同じ 
長 さ の 音符 が いく つも 続く と き は 最初 の 音符 だ け に 長 さ 指定 を 付け れ ば 
よい 。 

в. 休止 符 は 民 の 右 に 長 さ 指定 を 付け て 表す . 
( 例 ) 4 分 休止 符 % は R5 8 分 休止 符 9 は RS3 

= (ІҢЖЕОЧЯАХІШТЕМРОУ ХО SHETA. 

TEMPO 1 分 間 あ た り の 4 分 音符 の 数 

( 例 ) 」=70 な ら ば ТЕМРО 70 


170 їзї#®=т 出力 


8.4 PLAY 文 


以上 で 。 いわば 「 コ ンピュータ ー 用 の 楽譜 」 の 書き 方 を 説明 し た が , 
その 実行 (演奏 ) は PLAY 文 (MUSTO と 書い て も よい ) に よっ て 行 な 
う 。 れ は 次 の よう に 書く <. 


単音 の 場合 
PLAY "音符 を 表す 文字 列 " 
( 例 ) PLAY "CDEFG" 
2 声 部 の 場合 
PLAY "第 1 声 部 の 文字 列 : 第 2 声 部 の 文字 列 " 
( 例 ) PLAY "С:Е" 
3 声 部 の 場合 
PLAY "第 1 声 部 : 第 2 声 部 : 第 3 声 部 " 
( 例 ) PLAY "CCC-BCC : EFEDEE:GAGGGG" 

= 文字 列 は 文字 列 型 定数 で も 文字 列 型 変数 で も よい . また 文字 列 
式 を 書い て も よい . 

= 指定 は 原則 と し て 各 声 部 ご と に 独立 で ある . 

в PLAY 文 は 普通 の プロ グラ ム の 順序 制御 規則 に 従っ て 実行 さ 
れる . すなわち 、 原 則 と し て 行 番号 順に 実行 され , FOR 文 に よる くり 
か え し 制御 も 可能 で ある . 演奏 機構 は CPU( 普 通 の プロ グラ ム を 実行 
する 部 分 ) と 独立 に な っ て お り , PLAY 文 の 文字 列 型 デー ター を 演奏 
機構 に 渡し て し まう と CPU は 解放 ほれ る の で , PLAY 文 と 次 の 
PLAY 文 の 問 に 若干 の 計算 その 他 の 処理 を 行なっ て も , 音 が 途切れ 
る 心配 は な い . 
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8.5 応 用 例 


例題 1 つき 
文部 省 唱歌 の 「 つ き 」 の プロ グラ ム を 作っ て みよ う . 楽譜 は 


4 


сынан ын 


= き 


[解答 ] 


10 ТЕМРО 129 

20 PLAY "GS5EGECDE6R3" 

30 PLAY "6G3AGEGAGEGAGED6R3『" 
40 PLAY "C3DEAGSEDECSR3『" 


例題 2 低い 音 , 高い 音 
上 記 の プロ グラ ム に O1CO8 の 指定 を 付け て 実行 し て みよ う . 


[解答 ] 


10 TEMPO 120 : CSIZE 3 : CLS 
20 FOR Ігі TO 7 

39 LOCATE 18, 12 : COLOR I 

40 PRINT #0, "031 

58 I$=RIGHT$(STR$<(I), 1) 

60 PLAY "0"+1 を $+"GSEGECDESR3" 
70 PLAY "G3AGEGAGEGAGEDSRS" 
80 PLAY "C3DEAGSEDEC る R3" 

90 NEXT І 


これ を 聞け ば わか る よう に , 低音 域 は か な り 音 程 が 悪く 音色 も きた な 
いか ら な る べく 使わ な い 方 が よい . 気持 よく 聞け る の は O03~06 で あ 
>. O8 の 音 も 出せ る が , 音楽 的 に 使え る 音 で は な い . 


172 8 音 # ш カ 
例題 3 —— 雪 の お どり 
最近 , 小学 生 が よく タテ 笛 で 吹い て いる 「 雪 の お どり 」 と いう 曲 ( チ ェ 
コス ロ ヴ ァ キ ア 民 謡 ) の プロ グラ ム を 作れ . 


[解答 ] 同形 の 箇所 が 多い の て 文字 列 型 変数 を 用 いる と よい .。 


10 REM ------- ユキ ノオト У ------- 
28 A$="+D3RAR+DRARAGFGARAR" 

30 B$="+D3RAR+DRARAGFEDRDR" 

48 C*="FSRDRFRDRFEFGARAR " 

100 PLAY A$ 

110 PLAY B$ 

120 PLAY C$ 

130 PLAY B$ 

140 PLAY C$ 

150 PLAY B$ 


[解説 ] この プロ グラ ム は 楽譜 の と お り で な は く , か な り 余 分 に 休止 符 
を 入れ て いる . 本 機 で 演奏 する 場合 、 こ うし な いと レガ ー ト に な りす ぎ 
で し まう 。 

行 20, 行 30 の 右辺 の 冒頭 に ある 十 印 は 「 上 の D」 の 指定 で ある . こう 
いう 所 は 普通 の MML と 異な る の で 注意 され た い . 


例題 — 2 RR 
| 前 問 の 曲 を 2 部 輪 唱 で 演奏 する プロ グラ ム を 作れ . | 


[解答 ] いろ いろ な 書き 方 が ある が , 下記 は 比較 的 エレ ガン ト な 解答 で 
ある . PART1$ が 先発 パー ト , PART2$ が 後発 パー ト で ある . 両 パー 
ト を 同じ 音域 で 演奏 する と 区 別 が 付 な な く て 面白 味 が な い の で , 先発 
パー ト を 1 オク ター ブ 上 げ て みた (これ は 成功 で , 聴い て みる と 割合 に 
感じ が よい )、 


19 REM ------- ユキ ノオト “リー ------- 

20 A$="+D3RAR+DRARAGFGARAR " 

30 B ま ="+D3RAR +DRARAGFEDRDR " 

48 C*="F3RDRFRDRFEFGARAR " 

50 РАКТ1%-"05"%4%%В%%С%%8%%С%%8%% "БЕЗБЕН" 
68 PART2$="04"+"RƏRRR"+A$+B$+C$+B$+C$+B$ 
70 PLAY PART1$+":"+PART2$ 
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例題 5 
フレ ー ル ・ ジ ャ ッ ク を 3 部 輸 唱 で 演奏 する プロ グラ ム を 作れ . 


フ プレー ル ・ ジ ャ ッ ク 


LO КЕМ; «е--шен be ------- 
20 A$="C5DECCDEC" 

30 B$="EFGGEFGR" 

40 C$="G3AGFESCG3AGFESC" 

50 D$="C-GCRC-GCR" 

69 PLAY "О4"+^% 

70 PLAY B$ 


110 PLAY B$+":"+"05"+A$ 
120 PLAY C$+":”"+B$ 

130 PLAY D$+":"+C$ 

140 PLAY A$+":"+D$ 

150 PLAY B$+":"+A$ 

160 PLAY C$+":"+B$+":"+"06"+A$ 
170 PLAY D$+":"+C$+":"+B$ 
180 PLAY A$+":"+D$+":"+C$ 
190 PLAY B$+":"+A$+":"+D$ 
200 PLAY C$+":"+B$ 

210 PLAY О%+":"+С% 

220 PLAY "03"+A$+":"+D$ 


260 PLAY "ОЗС-6СЕС-602С7" 


例題 6------%5%4%5 


[解答 ] 伴奏 の 方 を 適当 に 簡略 化し て 作っ た 例 を 以下 に 示す . 


10 КЕМ ======= FEIL == 

20 PLAY "C6R3C る R3CSCDDDEDD"+" :С5-6С-6С-6-В-6-ВС-В-6" 
30 PLAY "E2R3E6R3FSFGGGGGR "+ "iC5-GC-GD -GE -GE -GE -6" 
40 PLAY "FFGGAAEEEFEE "+":C5-AD-BECC-GC-GC-G" 

50 PLAY "D る R3DSD -B7CSCCCCR "+" : 03BSGBGBG04C-GC -GC-6" 
68 PLAY "DCDD-G7C5SDE る R3ESE"+" 03BABGBGEGD4C-GC-G" 

70 PLAY "FEFFFAGFEEEEEE"+":-B-A-B-G-B-GC-BC-GC-GC-G" 
80 PLAY "“GóRƏGóRƏGSGCCCDEE"+":C7-B-#A-A5-#G-A-BC-A" 
90 PLAY "FóR3F5FDDCCCCCR"+":D-G-A-F-B-GC-GC-GCR" 


174 звану 
例題 7 ゴセック の ガ ボ ポ ボット 
ゴセック の が ガ が ガ ボッ ト を 演奏 する プロ グラ ム を 作れ . 


[解答 ] くり か え し が 多い の で FOR 文 を 用 いる . 


10 TEMPO 250 : PLAY "04" 

28 A$="GSAGEFGFDCRB3+CSRC8RS" 

30 B$="F5GFDEFECDR#F3GS5R-G8RS" 

40 C$="E5EC-ACC-A-#F-GR#F3GS5R-G8R5" 
50 FOR I=1 TO 2 


る 9 PLAY A$ 
70 PLAY B$ 
89 PLAY A$ 
?8 PLAY C$ 
100 NEXT I 


110 D ま ="DSFEGFEDC-B7DFSRS" 

120 Е%-"Е5ОҒАОҒЕОС?ЕбВК5" 

130 Ғ%= "ASG3RGRFRFRERERDRD7FASR5" 
148 G$="G5E-BCFD-A-BCRE3+CSRC8R5" 
150 PLAY D$ 

160 PLAY E$ 

170 PLAY F$ 

180 PLAY G$ 

198 Р%-"ЕЕЗЕ6КЗҒ6ЕЗҒ6КЗО5%СВ%СбӘК5" 
208 0%-"С6КЗС6КЗ06КЗО6ЕЗЕЗОНҒСбАбҒЕОЗКЕ-бК-ВК-бК" 
218 R$="-A7C5-AAR-AR-G7C5-GGR-GR" 
228 S ま ="FSR-GRER -GRDRD3EFEDSR5 “ 

238 FOR I=1 TO 2 


249 PLAY РФ 
259 PLAY Q$ 
260 PLAY R$ 
270 PLAY S$ 
280 NEXT I 


298 T$="FS5RF3EDC-B7B+CSR-GRC8R5" 
308 U ま ="FSRF3EDC-B7B+CSRCREBR5" 
310 いま ="03Q7+C3BAGF 704AGGSAGFE7G" 
320 し いま =“"FZA3GFED7B+CSRGRCBR5" 

339 FOR 1-1 TO 2 


360 PLAY ЧФ 
370 PLAY W$ 
380 NEXT I 
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例題 8 月 光 の 曲 (一 部 分 ) 
ベー トー ベン の 月 光 の 曲 を 演奏 する プロ グラ ム を 作れ . 


[解答 ] 


この 曲 は 旭 ハ 短調 で シャ ー プ が 4 人 箇 も 付く の で , 文字 列 型 変 数 
に # 付 き の 音 を 入れ て お いて , そ れ を つなぐ こと に し た ( 行 10 一 230). ま 


た 8 分 音符 の 音 。 4 分 符 の 音 。 2 分 音符 の 音 も 用 意 し た ( 行 240~380) . 
よく 使わ れる 伴奏 パタ ー ン は 最初 に 作っ て お く こ と に し た ( 行 
400-470). こ うし た 準備 を し て , 最初 の 9 小節 を 書い て みた の が 以下 の 
プロ グラ ム で ある ( 行 1000-1080 の 1 行 が 1 小節 ) . 


10 DEFSTR A-H 248 С1="ОЗ#С8" : С2=С1+С1 : С4=С2+С2 
20 DEFSTR 0-2 250 01="03#08" : D2=D1+D1 : D4=D2+D2 
30 С="#С" 268 Е1="03Е8" : E2=E1+E1 : Е4=Е2+Е2 
40 D="#D" 270 Fi="03#F8" : F2=F1+F1 : F4=FZ+F2 
50 Е-"Е" 288 Gi="03#G8" : G2=G1+G1 : 64=62+52 
60 F="#F" 2908 А1-"ОЗАВ" : А2=А1+А1 : A4=A2+A2 
70 б="#б" 308 Ві= "0388" : B2=B1+B1 : B4=B2+BZ 
80 А="А" 310 СС1="О2#С8" : СС2=СС1+СС1 : СС4=СС2+СС2 
90 В="В" 320 001="02#08" : DD2=DD1+DD1 : DD4=DD2+DD2 
108 СС="-#С" 330 EE1="O2EB" : ЕЕ2-ЕЕ1%ЕЕ1 : ЕЕ4=ЕЕ2+ЕЕ2 
110 DD="-#D" 340 FF1="02#F8" : FF2=FF1+FF1 : FF4=FF2+FF と 
120 EE="-E" 350 661="02#08" : GG2=GG1+GG1 : GG4=GG2+6G2 
130 FF="-#F" 360 АА1= "0208" : AAZ=AAI+AAI : AA4=AA2+AAZ 
140 GG="-#G" 370 ВВ1-"0288" : BB2=BB1+BB1 : BB4=BB2+BB2 
150 AA="-A" 380 В51«<"03С8" : BS2=BS1+BS1 : BS4=BS2+BS2 
160 BB="-B" 390 Z=":" 
178 ССС="+#С" 408 GCE=GG+C+E : GCE2=GCE+GCE : GCE4=GCE2+GCE2 
180 DDD="+#D" 410 ACE= 人 QA+C+E : АСЕ2=АСЕ+АСЕ 
190 EEE="+E" 420 QADF=QA+T"D"+F : QADF2=QADF +QADF 
200 FFF="+#F" 430 GDF =GG+D+F : GDF2=GDF+GDF : GDF4=GDF2+GDF2 
218 GGG="+#G" 440 ACF =AA+C+F : ACF2=QCF+ACF 
220 AAA=" +A" 458 GHD=GG+B+D : GHD2=GHD+GHD 
230 BBB="+B" 468 GHE=GG+BB+E : GHE2=GHE+GHE : GHE4=GHE2+GHE2 
478 AHD=AA+BB+D : AHD2=AHD+AHD 
1000 PLAY GCE4+Z+C4 
1018 PLAY GCE4+Z+BB4 
1020 PLAY ACE2+QADF2+Z+AA2+FF2 
1030 PLAY GG+"C"+F+GCE+GG+C+D+FF+"C"+D+Z+GG4 
1040 PLAY EE+GG+C+GCE+GCE2+Z+C4+Z+"RƏRƏRS#G7R1#G63" 
1050 PLAY GDF4+Z+BS4+Z+"#GS#GƏR8#G7R1#63" 
1060 PLAY GCE2+ACF2+Z+C2+FF2+Z+"#GƏ#G8ASAG" 
1070 PLAY GHE2+AHD2+Z+BB4+Z+"#G8S#G8H#F8B8" 


1080 PLAY GHE4+Z+E4+Z+"E8RBRSR8" 


176 Жы Ж, ЖЕ. 
8.6 SOUND% 


本 機 に は 音響 出力 に 関し 。 も う 一 つ 。 SOUND と いう 命令 が ある .。 С 
れ は 本 格 的 に 説明 する と 非常 に 長い 話 に な っ て し まう の で ,。 ここ で は 多 
少 「 独 断 と 偏見 ] を お 許し いた だ く こ と に し て , ご く 簡 単 な 解説 を 試み 


© 


өз 


SOUND 文 の 機能 は 大 きく 分 け て 二 つ あ る . それ は 

音程 を も っ 音 ( 楽 音 と いう ) を 出す 
し 音程 を も た な い 音 (雑音 と いう ) を 出す 
で ある 。 

сор, 楽 音 に 関す る 機能 は , 大 部 分 , PLAY 命 令 に 含ま れ て いる . 
また , SOUND 文 で 曲 を 書 こ うと する 大 変 な 手間 が か か る . い うな れ ば 
SOUND 文 は 機械 語 で , それ を 音楽 用 に 使い 易く し た 言語 が PLAY 命 
令 の MML で ある . し た が っ て 。 普通 は , 音楽 演奏 の た め に SOUND 文 
を 使う 必要 は な い , と いっ て よい . 

ーー も ちろ ん 。 SOURND 文 を 使え ば , PLAY 命令 より も キメ の 細か い 
制御 が で きる . た と えば , 音程 を 半音 間隔 より も 細か く 指 定 で きる か ら 。 
特定 の 音 を ほん の 少し だ け 低 くし た いと か 高く し た いと か いう よう な 組 
工 も 可能 で あり , 純正 律 に 近い 和音 を 出す こと も 可能 で ある . 

し か し , どん な に 凝っ て みて も , Р (し ょ せん ) 本 物 の シン セ サ イ 
ザー の よう に は いか な い . ロー・ オ ッ シ レ ー タ ー ( 低 周 波形 発生 器 ) に 
よる 制御 の で きる の は 音量 だ け で ある . その た め , ビブ ラー ト を か けら 
れ な い . 音色 も 限ら ちら れ て お り , 低い 音 は プ ザ ー の よう な 音 に な っ て し ま 
う . まあ , そう いう わけ だ か ら , 本 機 の 音楽 演奏 は , な る べく 手軽 に PLA 
Y 文 で 書く の が 賢明 で ある と 思う . 

それ に 対し , 雑音 の 方 は PLAY 文 で は 出せ な いか ら , SOUND 文 で 書 
く 必 要 が ある . そこ で 「 8OURND 文 は 雑音 を 出す 命令 で ある 」 と 割り 切っ 
て し まう と 話 は 非常 に 簡単 で 、 要する に 次 の こと を 覚え れ ば よい . 
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SOUND 文 に ょ る 雑音 発生 の 基本 形 音 を 出す に は , 
SOUND 6 , 音 の 高き の 指定 
SOUND 7,7 
SOUND 8, 音 量 レ ベル 
の 三 つ の 文 を 実行 すれ ば よい (順序 は 上 記 の と お り で な く て も よい ). 
第 1 の 文 は , 雑音 の 平均 的 な 音 の 高き を 指定 する も の で , 0 一 31 を 指 
定 で きる . 音 の 感じ は , 実際 に 聞い て みる の が 最も よい が 。 あえ て 文字 
で 書く な ら , SOUND 6,10 だ と 「 シ ー」 と いう 音 。 SOUND 6 
520 だ と [シャ ー」 と いう 音 。 8BOUND 6,50 だ と | ザー」 と 
いう 音 に な る 。. 
第 2 の 文 は 「 雑 音 ス イッ チ ON」 と いう 機能 を も つ . 
第 3 の 文 は PLAY 文 の V 機 能 と 同じ で , 0 一 15 を 指定 で きる . 
SOUND 8,1 いち ば ん 小さ な 音 
SOUND 8,8 普通 の 音 
SOUND 8,15 いち ば ん 大 き な 音 
以上 の 指定 で 出る 音 は 連続 音 で ある . 音量 を ある パタ ー ン に 従っ て 制 
御 す る に は 次 の よう に 書け ば よい 
SOUND 6 , 音 の 高 さ の 指定 
SOUND 7,7 
SOUND 8,16 二 音量 レベ ル 
SOUND 13, 音 量 パ ター ン の 指定 (下図 参照 ) 
SOUND 12, 音量 変化 の 周期 の 指定 値 を 256 で 割っ た 商 
SOUND 11, 音 量 変化 の 周期 の 指定 値 を 256 で 割っ た 余り 


O Г M が 小さ いと ピチ カー ト 
M が 大 きい と 鐘 の 音 

15 ーーーーーーーー MO ぐら いで 用 ゆる. と 
音 の 区 切り を つけ る の に 有効 
M150 ぐ らい で 用 いる と 

т Шетке 


トレ モロ の 感じ に な る 


в ыы M700 ぐら いで 用 いる と 
マン ドリ ン の 感じ に な る 


! 上 と 同じ 


178 8 音 жн) 
SOUND 文 の 文法 普通 の 雑音 を 出す だ け な ら ば 以上 の 要領 で 一 
№, 十分 だ と 思う が , 参考 の た め , SOUND 文 の 全 機 能 と その 指定 の し 
か た を 説明 し て お く , SOUND 文 に は 常に 二 つ の 引数 を 書く . 第 1 の 引 
数 は 機能 種別 を 表す も の , 第 2 の 引数 は 指定 する 値 で ある . 
SOUNDO-- SOUND5 は 楽 音 の 周波 数 を 指定 する . その 内 , 0 と 1 
は 第 1 声 部 , 2 と 3 は 第 2 声 部 , 4 と 5 は 第 3 声 部 の 周波 数 に 対応 する . 
た だ し , 第 2 引数 と し て は 周波 数 その も の を 書く の で は な く 。 
76800 - 

を 書く . より 詳し くい えば , 上 記 の 値 を 256 で 整 除 し た 商 を 奇数 番号 の 命 
令 (SOUND1, SOUND3, SOUND5 ) の 第 2 引数 と し て 書き , 256 
で 割っ て 余り を 偶数 番号 の 命令 の 第 2 引数 に 書く . 

SOUND6 は 雑音 周波 数 の 指定 ( 3 声 部 共通 ) で , 既に 前 ペー ジ て 要 
点 を 説明 し た . 

SOUND7 は 楽 音 お よび 雑音 の , 各 声 部 独立 の スイ ッ チ で 


雑音 ЖИ------ 
第 3 声 部 第 2 声 部 第 1 声 部 第 3 声 部 第 2 声 部 第 1 声 部 
2° 2° 2 2? 2° 2° 


の よう に 対応 し 。 0 が ON,。 1 が OFF を 表す (普通 と 逆 な の で 注意 ). 
( 例 ) 第 1 声 部 の 雑音 と 第 2 声 部 の 楽 音 を ON に し た けれ ば , ビッ ト ・ 
パタ ー ン は , 110101 で ある か ら , 10 進 に な お せ ば 53 に な り , SOUND 7 
> 5 る と 書く こと に な る 。 

SOUND3-SOUND10 は 第 1 声 部 第 3 声 部 の 音量 の 指定 で 。 さ 
ら に SOUND11--SOUND1 る 3 の 指定 (エン ベロ ー プ 指定 と いう ) を 
付け た い 場 合 は , 第 2 引数 に 16 を 加え る . これ は 楽 音 に 対し て も 雑音 に 
対し て も 有効 で ある . 
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第 1 声 部 第 2 声 部 第 3 声 部 

上 位 4 ピット は 上 位 4 ビット は 上 位 4 ピッ ト は 
周波 数 指定 | SOUND 1,0 SOUND 3,0 SOUND 5,0 
下位 8 ビッ ト は 下位 8 ビッ ト は 下位 8 ビット は 
SOUND 0,0 SOUND 2,0 SOUND 4,0 

雑音 周波 数 指定 

SOUND 6,0 

. で 指定 ・ 
SOUND 7,0 減衰 時 定数 指定 


に 上 位 8 ビッ ト を 


SOUND 12,0 
下位 8 ビッ ト を 
SOUND 11,0 
で 指定 


SOUND 8,0 SOUND 9,0 SOUND 10, 口 
ERNE, で 指定 で 指定 で 指定 
Fez 4 内 蔵 ス ピー カー 


© EXT SPEAKER 端子 


SOUND 機能 概念 図 


180 з#@ш 7 
[SOUND 文 の 簡単 な 使用 例 ] 


1) SL の 音 

10 SOUND 6,10 比較 的 高い 音 
20 SOUND 7,7 決ま り 文 句 
30 SOUND 8,16 波形 制御 ON 


40 SOUND 15,14  /\ 人 へ 人 へ 形 波形 
50 SOUND 12,1 
60 SOUND 11,0 


これ は 快調 に 速く 走っ て いる と き の 音 で ある . 
{7100 SOUND 6 , 音 の 高き 
行 50 の SOUND 12, 周期 の 長き 
を 調節 すれ ば , いろ いろ な 走行 状態 の 音 が 出る . 
[注意 ] この プロ グラ ム は |SHIFT|+|BREAK| で は 止ま ら な い . 


| 比較 的 短い 周期 


CTRTL| 二 ID| と すれ ば 止ま る . プロ グラ ム 的 に 止め る に は , PAUSEX 
等 に よっ て 適当 な 時 間 だ け 待 っ た の ち に SOUND 8,O と すれ ば よ 
い , 


2) ミサ イル の 発射 音 


10 SOUND 6,10 比較 的 高い 音 
20 SOUND 7,7 決ま り 文 句 
30 SOUND 8,16 波形 制御 ON 


40 SOUND 15,0 ト 形 波 形 
50 SOUND 12,20 
60 SOUND 11,0 


や は り 行 10 と 行 50 の 第 2 パラ メー ター を 調節 する こと に より 。 Хаж 
ミサ イル の よう な 感じ か ら 。 ピス トル の よう な 感じ まで 。 いろ いろ と 変 
示さ こ が で きる 。 


) 中 程度 の 時 定数 


付録 人 デバ ッ ク の 方 法 


A 1 デベ バッグ と は 


新しい プロ グラ ム を 作成 し て コン ピュ ー タ ー に 入力 し た と き 。 それ が 
期待 どおり に 動い て くれ れ ば よい が , 実際 に は 最初 か ら う まく 動く と は 
限ら ず , 

途中 で エラ ー・ メ ッ セ ー ジ が 出 て 止ま る 

いく ら 待 っ て も 管 が 出 な い 

一 応 は 結果 が 出る が 答 が お か し い 
>» トラ ブル の 起こ る こと も 少な く な い 。 それ は 

プロ グラ ム の 基本 設計 に お ける 考え 落と し 

プロ グラ ム 作 成 時 の 文法 的 誤り 

プロ グラ ム が 正しく 入力 され て いな い 

デー ター が 正しく 入力 され て いな い 

誤操作 
な ど に よる の で ある が ,。 いずれ に し て も その 原因 を つき と め て ,。 正しく 
動く よう に 修正 する 必要 が ある . その た め の 作 業 を デバ ッ グ (debug, Н 
取り ) Erg, 

デバ ッ グ は プロ グラ ム 作 成 よ り も むず か し く , 時 間 も か か る . 予想 し 
な か っ だ た こと が 起こ る か ら で あ る .。 デバ ッ グ の 万 能 的 方 法 (こう すれ ば 
必ず 原因 が 見 付か る と いう よう な ) は 存在 し な い . し か し , これ まで の 
経験 か ら 。 いく つか の 比較 的 有効 な 方 法 が 知ら れ て いる . 以下 で は , そ 
の よう な 方 法 に つい て 簡単 に 紹介 する . 


(て 


182 付録 A デバ ッ グ の 方 法 


А. 2 実行 前 の チェ ッ ク 


プロ グラ ム を 入力 し た ら 。 実行 前 に 1 エ 8m〒 コ マン ド に よっ て リス ト 
を 表示 させ (プリ ンタ ー が あれ ば LLIST コ マン ド に より 印刷 し て ), 誤 
り が な いか どう か , よく 点検 し て お く と よい .。 

行 番号 順に 目 読 する だ け で も よい が , ҒОЙ, 

左 カ ッ コ に 対応 する 右 カ ッ コ が ある なか? 
り 印 に 対応 する " 印 が ある か ? 
EOR 文 に 対応 する МЕХТ 文 が ある か ? 
GOTO 文 の 行先 は 実在 する か ? 
GOSUB と RETURN は 対応 し て いる か ? 
と いう よう な 形式 的 整合 性 を チェ ッ ク し て お く と よい 。 それ は 
この 種 の 誤り が 非常 に 多い 
この 種 の 誤り が ある と 原因 の 解明 に 苦労 する 
作業 が 簡単 な わり に 効果 が 大 きい 
な どの 理由 に よる . 
も う 少 し 手間 を か け て よけれ ば 。 読み 合わ せ を し て 
抜け て いる 行 は な いか ? 
綴り が 正しく 入力 され て いる か ? 
数 値 が 正しく 入力 され て いる か ? 
数 式 が 正しく 入力 され て いる か ? 
な ど を 確認 し て お く と よい . この 種 の 誤り は , 文法 的 な 誤り に な ら な い 
こと が 多く 。 その た め 発 見 が 遅れ て 苦労 する か ら , 事前 に 十分 チェ ッ ク 
し て お く の が 賢明 で ある . 
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А.З 実行 中 に 異常 停止 し た 場合 


実行 中 に 異常 停止 し た ら , まず 画面 の 記録 を と る . プリ ンタ ー が あれ 
ば 画面 コピ ー を する と いい . それ に は , キー ボー ド か ら НООРҮ 4 
| | と 指令 よれ ば よい . グラ フィ ッ ク な し (文字 だ け ) な ら ば HOCOPY 
| | を 用 いる と 少し 時 間 が 節約 に な る . 

た いて い 。 エ ラー・ メ ッ セ ー ジ が 出 て いる か ら ,。 それ を ヒン ト に し て 
原因 を 考え る 。 Ел, 最後 に 実行 し た (また は 実行 し よう と し た ) ЧО 
番号 も 表示 され る か ら , それ も 原因 解明 の ヒン ト に する 。. 

( 例 ) 10 INPUT "Х=",ух, 

20 Y=LOG( XX ) 

50 PRINT Y 
を 実行 する と 

Syntax error іп то 
と いう エラ ー・ メ ッ セ ー ジ が 出 て 止ま る . これ は 「 行 番号 10 の 文 に 文法 的 誤り 
が ある 」 と いう 意味 で ある か ら , その 行 を 詳し く 調 べ る と, 

命令 の 綴り エ NPUT は 正しい 

入力 要求 "N=" の 書き 方 は 正しい 

変数 名 文 を 用 いる の は 正しい 
と いう こと で , 残る 「 ,」 の 文法 を 調べ て みる と , TINPUT 文 の 最後 が コン マ 
で は いけ な い ,。 と いう こと が わか る . 

エラ ー・ メ ッ セ ー ジ と 行 番号 だ け で 解決 し な い 場 合 , メモ リー の 内 容 
(停止 し た 時 点 に お ける 各 変 数 の 値 ) を 調べ て みる と よい . それ に は , 
PRINT (また は LPRINT) 文 を 直接 実行 形式 で 用 いる . 

( 例 ) 変数 A,B,C の 値 を 見 た い 場 合 

PRINT А;В;С 
( 例 ) 配列 又 の 内 容 (添字 1 か ら N ま で ) を 見 た い 場 合 

FÖR І-і ТО N:PRINT Х(І):МЕХТ I 
[注意 ] 本 機 で は プロ グラ ム の 修正 を 行なっ て も 変数 の 内 容 は 消え な い 
で 残る が , RUN し た りす れ ば こわ れる か ら , メモ リー の 内 容 は な る べく 
早く ( 正 事 っ 大 あら すぐ) 調べ さて お く と よい 。 
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А. 4 主 な エラ ー・ メ ッ セ ー ジ の 読み 方 (ABCR) 


Already open 
[オー デシ し で ある ファ イル を また オー デシ し よう と し た 」 

その 前 に ファ イル を 使用 し た と き の CLOSE を 忘れ て いる た め と 考 
えら れる . 

Bad allocation table 

「 フ ァイル の 内 容 一 覧 表 が こわ れ て いる ]」 

Bad file descripter 

「 フ ァイル 名 が お か し い 」 

た と えば "A:B リ "な ど と いう ファ イル 名 を 使う と , この メッ セー ジ が 
出る . 

Bad file mode 

「 そ の テー プ は 読め な い 」 

テー プ の 記録 形式 に は , BASIC の プロ グラ ム (ASCII セー プ で な いも 
о), BASIC の デー ター(ASCII セー プ さ れ た プロ グラ ム を 含む )。 機械 
аң (2 進 法 ビ ッ ト ・ パ ター ン ) の 三 つ が あり , 形式 の 異な る テー プ は 入 
力 で き な い . 

Bad file number 

「 フ ァイル 番号 が お か し い ]」 
OPEN の 書き 忘れ , また は 番号 違い . 
Сап” continue 

「CORNT 指令 が 出 た が 実行 再開 で き な い ]」 

[BREEAK| キ ー を 押し た り , STOP 文 を 実行 し た り し て 一 時 停止 し た 
と き , コン ピュ ー タ ー は 「 現 在 の 停止 位置 」 や 停止 時 の 状態 を 記憶 し て 
お く の で ある が , 修正 中 に 複雑 な 操作 を する と , その 情報 が こわ れ て し 
まい , 再開 で き な く な る 。. 
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Device full 

「 デ ィ ス ク 満 員 」 

この 場合 , 満員 に な っ た ディ スク に 既に 書き 込ん で ある プロ グラ ム や 
デー ター の 保全 を 第 一 に 考え 。 キー ボー ド か ら 

CLOSE 
を 入れ て , し めく くっ て お く . 書き 込み 途中 の デー ター は (まだ メモ リー 
に 残っ て いれ ば ) 最初 か ら 全部 あら た め て 別 の ディ スク に 書き 込む . 

Device in use 

「 指 定 さ れ た 入出 力 装置 が 現在 使用 中 」 

Device I/O ERROR 

「 周 辺 装置 の 故障 また は ディ スケ ッ ト の 不良 」 

Device offline 

「 指 定 さ れ た 入出 力 装置 が 使用 可能 な 状態 に な い ] 

スイ ッ チ の 入れ 忘れ な ど で あ る .。 なお, プリン ター の [8S 到 | スイ ッ チ 
を 押し 忘れ て オフ ライ ン 状 態 に な っ て いる 場合 に は , この メッ セー ジ は 
出 ず 。 コ ンピュータ ー は 黙っ て 停止 し て , 使用 者 が [8 包 | ス イッ チ を 押 
す の を 待っ て いる . プリ ンタ ー を 使う プロ グラ ム で , 異常 に 長い 時 間 が 
か か る 場合 は [SEL| の 押し 忘れ を 疑う と よい . 

Division by Zero 

「 0 で 割っ た 」 

除 数 (割る 数 , 分 母 ) が 0 に な る 原因 は いろ いろ ある が , 一 つの 可能 
性 と し て は , その 変数 に 値 が 代入 され て いな か っ た (未定 義 で あっ た ), 
ある い は 。 代入 し た つも り で あっ た が 綴り を まち が えて いた , と いう こ 
と が 考え られ る . PRINT 文 を 直接 実行 形式 で 用 いて , 関係 する 変数 の 
値 を 調べ て みる と よい . 

( 例 ) 10 INPUT BUNSI , BUNBO 
20 A= テ BUNS ェ エン BUNBO 
50 PRINT А 

原因 は O (オー) と O (ゼロ ) の 入れ まち が い . 


186 付録 人 デバ ッ グ の 方 法 
Duplicate Definition 
「 配 列 ま た は 関数 の 2 重定 義 」 

た と え ぇ 寸法 が 同じ で も , 同じ 配列 名 を 2 重 に 配列 宣言 する こと は 禁止 
され て いる 。 その よう な プロ グラ ム を 書い た は ず が な い の に , この メッ 
セー ジ が 出 上 た と すれ ば 。 次 の よう な 原因 が 考え られ る . 

ルー プ の 中 に DIM 文 を 書い て ある . 
GOTO 文 な ど に より , DIM 文 より 前 に も どっ て きた . 
また , GOTO 文 の 直接 実行 に よっ て プロ グラ ム を スタ ー ト させ る と 。 以 
前 の 宣言 が キャ ン セ ル さ れ て いな いた め に 。 2 重定 義 と いう こと に な っ 
て し まう こと が ある (RUN コ マン ド で 開始 すれ ば , 白紙 の 状態 に も ど し 
て か ら 実 行 を 開始 する の で , その よう な トラ ブル は 起き な い )、. 
File not found 
「 指 定 き され た ファ イル が ディ スク 上 に な い ]」 

ディ スク (ディ スケ ッ ト ) の 入れ まち が い 。 と いう こと も ある が 。 ファ 

イル 名 の 綴り の 誤り と いう こと も よく ある .。 これ を 調べ る に は 
FILES ドラ イブ 番号 

に より , その ディ スク に 書き 込ま れ て いる ファ イル 名 の 一 覧 表 を 表示 さ 
せ て みる と よい . 大 文字 と 小文字 は 区 別 き され る の で 注意 . 英字 の ひと 数 
字 の 0 の 混同 と いう こと も ある . 6 字 以 上 の ファ イル 名 を 入れ る と 。 入 
れ た つも り の な い ピ リオ ド が 挿入 され , ピリ オド を 含め て 指定 し な いと 
読め な い . 

File not open 

「 オ ー プ ン し て いな い フ ァイル を 読も う ( 書 こ う ) と し た 」 
OPEN 文 の 書き 忘れ , また は 書き ちがい . 
Format over 
[PRINT U8TNG 文 の 書式 指定 が 長 す ぎる 」 
For without МЕХТ 
「『FOR 文 に 対す る NEXT 文 が 無い 」 
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Illegal direct 
「 そ の 命令 は 直接 実行 形式 で は 実行 で き な い 」 

本 機 は 大 部 分 の 命令 が 直接 実行 可能 な の で , めった に この メッ セー ジ 
は 出 な い ( た と えば DTM 文 や DEEFETN 文 も 直接 実行 で きる . LABEL 
文 や GOSU 文 を や っ て も ,。 この メッ セー ジ は 出 な い ). 

Illegal function call 

「 関 数 の 使い 方 が 悪い 」 
これ は , た と えば 平方 根 を 計算 する 関数 SQR の 引数 が 負 に な っ た , と 
いう よう な 場合 で ある . た だ ち に 引数 の 値 を 調べ , さら に , 引数 の 値 の 
計算 の 経過 を 調べ て , 引数 が な ぜ 異 常 な 値 に な っ た か , 原因 を 究明 する 
必要 が ある . た いて い は 平凡 な ミス で あろ う が 。 何 度 調べ て も 
式 は あっ て いる の に 値 が お か し い 

と いう 場合 に は , 丸め 誤差 が 原因 。 と いう こと が 考え られ る . 本 来 な ら 

х2 0 と な る は ず の * が 。 丸め 誤差 の た め に , ほん の わずか で は ある が , 

0 より 小さ く な る , と いう こと が 判明 し た ら , SQR を 使用 する 前 に 
IF Х<0 THEN Х=0 

と いう 文 を 挿入 すれ ば よい . 

Input past end 
「 入 力 フ ァイル の 終端 を 過ぎ た の で 入力 不可 能 」 

TNPUT# 文 が デー ター を 要求 し て いる が , 既に ファ イル の 終端 に 来 
TOT, 入力 で きる デー ター が 無い と , と いう 意味 . 

Line buffer overflow 

「 1 行 の 字数 が 多 す ぎ て バッ ファ ー に 入り きれ な い ] 

一 応 上 記 の 意味 で ある が , 本 機 の 場合 , た いて い は 入れ きれ な く て も 
メッ セー ジ は 出 ず , は み 出 し た 分 は 置き 去り に し て 処理 を 進め る . 

Missing operand 

「 演算 子 の 書き 忘れ 」 
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NEXT without FOR 
[FRX ZROD NEXTXŻ Z] 
た いて い は , ЕОҺВХОШЗ3ЕН, %7:2МЕХТУОШИЛАО, 画 
面 編集 時 の 消し 忘れ が 原因 で ある . 
Out of Data 
「 デ ー タ ダー 宙 星 」 
READ 文 で 要求 し て いる デー ター が DATA 文 に 書い て いな い 。 原因 
із, た いて い 。 単純 な ケア レス ・ ミ ス で ある 。 
Out of memory 
「 メ ヌメ モリー 容量 不 足 で 実行 で き な い ]」 
Out of tape 
「 カ セッ ト ・ テ ー プ を 入れ て 下さ い ] 
自動 的 に ふた が あい て 。 この メッ セー ジ が 出る . 
Overflow 
「 演 算 結果 が 過大 の た め 処 理 不 能 」 
実数 型 お よび 倍 精度 実数 型 は 絶対 値 が ( 約 )10* 以上 に な る と 処理 が で 
き な く な る . また 整数 型 は ー32767 一 十 32767 の 範囲 を 越え る と 処理 が で 
き な く な り 。 この メッ セー ジ が 出る 。 
REPEAT without UNTIL 
「REPEAT 文 に 対応 する UNTIL 文 が 無い 」 
Reserved feature 
「 そ の 命令 は ディ スク BASIC で な いと 使え な い 」 
原因 は 二 通 り 考 えら れる . ディ スク を 使用 する プロ グラ ム の 実行 時 に 
この メッ セー ジ が 出 た の で あれ ば , 操作 ミス (ディ スク BASIC の シス テ 
ム を 入れ て いな か っ た ) で ある . 一 方 , ディ スク を 使う つも り が な い の 
с, この メッ セー ジ が 出 た の で あれ ば 。 何気なく 書い た 文 が じつは ディ 
スク BASIC の 命令 で あっ た , と いう ケー ス が 考え られ る 。. 
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RESUME without error 
「 エ ラー が な い の に RESUME 命 令 が 出 た 」 

メイ ン ・ プ ログ ラム の 最後 の 思 ND を 書き 忘れ , エラー 処理 ルー チン に 
迷い 込ん だ 場合 な ど に この メッ セー ジ が 出る . 

RETURN without GOSUB 

「GOSUB で 呼ば れ て いな い の に 選 TURN 文 が ある ] 

BASIC の サブ ルー チン は 独立 し た プロ グラ ム 単 位 に な っ て いな い の 
で GOTO の 行 番号 の 書き ちがい と か , メイ ンプ ログ ラム の 最後 に BN 
D が 無く 。 すぐ 続け て サブ ルー チン を 書い て あっ た と か , その 他 い ろ い 
ろ な 原因 で サブ ルー チン の 中 に 迷い 込ん で し まう こと が あり 。 その た め 
に 上 記 の メッ セー ジ が 出る こと が 多い . また , サブ ルー チン を 呼ぶ の に 
GOSUB を 使わ ず に GOTO を 使っ て し まっ た と いう 場合 も ある . 

String too long 

「 文 字 列 の 字数 が 多 す ぎ て 処理 で き な い 」 

許さ れる の は 255 字 まで で ある . な お , 文字 列 型 定数 の 字数 が 長 す ぎ た 
場合 は エラ ー に な ら ず , 先頭 255 字 だ けが 有効 に な る よう で ある 。. 

Subscript out of range 

「 添 字 の 値 が 配列 の 寸法 を オー バー し て いる (また は 負 で ある )」 
原因 は きま ざま で ある が , 常識 的 に 予想 され る 原因 の ほか 
配列 の 宣言 を する の を 忘れ て いた 
第 1 添字 と 第 2 添字 を 混同 し て 用 いて いた 
関数 名 の 誤り ( 例 ) Y=LN(100 ) 
な ど と いう こと が ある 。. 

ж, DIM А(20000) と いう よう な 場合 に も , どう いう わけ 

ж, この メッ セー ジ が 出る . 
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Syntax error 


「 文 法 違 反 が ある 」 

原因 と し て は , 次 の よう な こと が 考え られ る 。. 
綴り の 誤り ( 例 ) TMPUT А 
記号 の 使い 方 の 誤り ( 例 ) FOR І-1,М 


予約 語 を 変数 名 に 用 いた ( 例 ) A=FOR 
構文 上 の 誤り (A) ОРЕМ "А" FOR INPUT АЗ #1 
GOTO жа 
Ү-Хжж2 
Таре read error 
「 カ セッ ト ・ テ ー プ の 読み 込み 時 の エラ ー」 
Too complex 
「 式 が 複雑 すぎ て 実行 で き な い 」 
本 機 の BASIC は な か な か よく で き て いて 。 カッ コ を 10 重 に 使っ た ぐ 
らい で は この メッ セー ジ は 出 な い . この メッ セー ジ が 出る の は , た と え 
ば 次 の よう な 全く 解釈 不能 な こと を や っ た 場合 で ある . 


анайы, 
UN 
Тоо comelex іп 30 


Type mismatch 
「 数 値 型 と 文字 列 型 を 混同 し て いる 」 
この メッ セー ジ を 直訳 すれ ば 「 型 の 不一致 」 と いう こと に な る が , 整 
数 型 , 実数 型 。 倍 精 度 実数 型 の 間 の 演算 , 比較 , 代入 等 に 際 し て は 自動 
的 に 型 変換 が 行なわ れる の で , この メッ セー ジ が 出 て 停止 し た ら , 文字 
列 型 変数 を 書く べき 場所 に 数 値 型 変数 を 書い た と か , その 逆 と か , そう 
いう た ぐい の 誤り で ある と 思っ て よい 、。 
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Undefined label 
「 定 義 し て な い ラ ベル また は 行 番号 が 参照 され た 」 
あと で 飛び 先 の プロ グラ ム を 書く つも り で いた が 忘れ て し まっ た ,。 と 
いう こと が よく ある . そう で な けれ ば , ラベ ル の 綴り の 誤り が 考え られ 
る (た と えば , GOTO "GRAPH" に 対し 。 行先 の 方 で は "GRA 
と 書い て いた りす る ). 修正 時 の 誤操作 に より , 必要 な 行 を 消し て し まっ 
だ 。 と いう こと も 考え られ る 。 
Undefined function 
「 定 義 き れ て いな い 関 数 が 使用 され た 」 
ここ で いう 「 関 数 ] と は , 利用 者 が 定義 むす る FN メメ と いう 形 の 関数 の 
こと で あっ て ,。 EN の 付い て いな いも の (た と えば , 
Y=ASIN(X) 
Y=LN(X) 
Y=SQRT(X) 
な ど と 書い て し まっ た 場合 ) は 。 この メッ セー ジ に 含ま れ な い (上 の 例 
の 内 , 最初 の 二 つ は 配列 と みな され る の で , 叉 が 10 以 下 な ら ば 値 は 0 と 
な り , 10 以 上 また は 負 な ら ば Subscript out of rang 
е と いう エラ ー・ メ ッ セ ー ジ が 出る . また SQRT は 「 予 約 語 に 始ま る 
変数 名 が 使わ れ た 」 と いう 理由 で Byntax error に な る )。 なお, 
関数 の つも り で な く , 変数 と し て EN で 始ま る 名 前 を 使っ て も この メッ 
セー ジ が 出る こと が ある 。. 
( 例 ) 


PRINT ҒМА 5 
Undefined function 


UNTIL withont REPEAT 

「 こ の UNTIL 文 に 対応 する REPEAT 文 が な い 」 
WEND without WHILE 

「 こ の WEND 文 に 対す る WHILEE 文 が な い 」 
WHILE without WEND 

「 こ の WHTL 互 文 に 対応 する WEND 文 が な い . 
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А.Б トレ ー ス 

誤り の 原因 が な か な か 見 付か ら な い 場 合 , 実行 し た 文 の 行 番号 を 実行 
順に 表示 する こと が で きる .。 これ は ,。 いわ ば プロ グラ ム の 実行 の 足跡 を 
調べ る わけ で トレ ー ス (trace) と 呼ば れ て いる 。 


トレ ー ス を 行なう に は ,。 トレ ー ス を 開始 し た い 位置 に TRON と い 
う 文 を お き , トレース を 終了 し た い 位 置 に TROFEE と いう 文 を 置け ば 


よい 、。 


( 例 ) 以下 に 示す の は 最大 公約 数 を 計算 する プロ グラ ム の 一 例 で ある 。. 


10 INFUT M,N 

20 IF М>-м GOTO 40 
Z0 SWAF M,N 

40 R=M MOD N 

50 IF К-о GOTO 90 
60 М-М 

70 М-Ж 

во GOTO 40 

90 PRINT "GCD=";N 


これ の トレ ー ス を 行う た め , キー ボー ド か ら 
5 TRON 
95 ТЕОРЕ 
を 入れ て TRON と TROFF を 付加 し , 実行 きせ る と 次 の よう に な る . 
[ І で 囲ま れ た 数 字 が 。 実行 し た 行 の 番号 で ある . 


Р 
т 
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DEC HEX CHR DEC HEX CHR DEC HEX CHR 


32 20 64 40 @ 96 60:25 
93 2171 65 41 А 97 61 78 
Әй; 22-5 66 42 В 98 62 b 
35 23 # 67: 88776 997.89 6 
36 24 $ 68 44 р 100 64 а 
са” ә ДЕР” 67 oi 101 65 e 
38 26 % 70 -4б aF 102766 Ж 
ск га 5524-70 103 67 g 
907268 2-48 -Н 104 68 Һ 
р Боир а: 29 73 Д9 `1 105.;:6%-:а 
42 2А ж 74 4A J 106 бА j 
43:28 + 75 48 К 107 6В к 
дас ZC TE- ACUE 108 6E 1 
し 77 40 м 109 60 п 
06 2E 2 "Ө, ДЕ ЫМ 110 6Е п 
ЖЕТЕРІ ГУДЕ 0 111 6Ғ о 
48 30 0 90 3077р 112 70.78 
аэ 91 гї 91-24-40 113.276: 79 
“8-34 2 82:73278 114 727 6 
91771098 з 863 -93:39 1 
52 34 4 84 54 Т 116 ТА 
ЕЕ 7340729 99 4500 117 Жауда 
54 36 6 86 56 V 118 76774 
22-97-27 ӨТ 227 00 1192-78 
56 38 8 88 58 Х 120. 78 -X 
ке ТЖ ШЫ, Вя: :99 4 121 “ТҰ: У 
58 ЗА : 90 5А 7 122-78-73 
89:48: 917 3821 123-:78--% 
60 3С < 92.9057 уй 424-75-24 
61 30 - 9379074 125 78-2 
ОЁТЕ ә ЭА АСПАН 126 >= 
А —7 95 ӘҒ 127-7 
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DEC HEX CHR DEC HEX CHR DEC HEX CHR 


26580. 160 AO 192 CO 9 
ЕР ここ 161 А1 。 199: 0175-3 
130-:82 = 162 ТАГ -S 198-529 
131 83 „ 163 АЗ . 195 -08-%7 
132 84 ш 164 А4 . 196 СА ト 
133 85 æ 165-845 45 197: Э-э} 
134 86 ш 166 486 7 199-2662 
135 87 В 167 А? > 199 PY I3 
136 88 | 168 A8 + 200 C8 ネ 
їз в 1 169 49 5 201° 697 
138 ВА | 170 АА тї 202 СА A 
139 88 І 171 ТАВ 23 203 СВ Е 
140 8С В 172 ТАС 2% 204 СС 7 
141 8D а 173 AD . 205 Со л 
142 8E B 174 AE 3 206 СЕ Жж 
ы. Жы; 175 ДАР ご 207 АҒ >7 
LAA 220 - 176-550 -= 208 00 = 
1957 :91 т 1177.504. Е 209 01 2А 
166: 92 4 178 82% 210 02 メ 
Тег F 179 283 9 211 -D3 -€ 
1468-2794 Мыш 180 В4 І 212-04 7? 
т 555 „= 1981-55 Ж 213. 5 1 
150::96 | 182 В6 P 214 D6 з 
1 183 BZ + 215 АМ 23 
192: 98 ғ 184 В8 7 216 08 リ 
193-799 - 185 В9 > 217 49-4 
154 9A + 186 BA 1 218 DA L 
199 238 ゴ 187 BB 5 219 DB -A 
196596 „г 188 ВС 5 220 ОС 7 
157 7490. , 189 BD 2 221 DD ン 
ТЫ /-ЗЕ て 190 ВЕ セ 222 Е 
о. а 191-87 47 245 АҒ: 


( 注 ) DEC は コー ド を 10 進 法 で 表し た も の 
HEX は コー ド を 16 進 法 で 表し た も の 
CHR は 対応 する 文字 
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DEC HEX CHR 0 一 31 の コー ド は 制御 コー ド で ある .。 その 
内 , 

лды ің 4 0~7 は デー ター 通信 の 制御 コー ド 

228 E2 % ( 例 ) 2 は STX (本 文 の 始ま り ) 

227 ЕЗ % 3 は ETX (本 文 の 終り ) 

Ере ri 8 ~15 は 出力 制御 コー ド 

238 Eó 4 ( 例 ) 913НтТ (水平 TAB) 

231 EZ М 10 は LE (1 行進 め る ) 

27 11 は カー ソル を 左上 隅 へ 


234 EA 12 は CL (画面 クリ ア , 改 頁 ) 


[Г] 
235 ЕВ ы Қ 
13 は OR ( ) 
294“ EC u [相当 
29700 P 14 は SO (シフ ト ・ ア ウト 5 
238 ЕЕ q 15 は 8T (シフ ト ュ イィ イン?) 
239 ЕЕ 0 А 
241 ЕІ + 24--31 は その 他 で ある . 
242 Ға 2 ( 例 ) 24 は CAN (キャ ン セ ル ) 
243 ЕЗ ж 
ーー プ ** 
са орал: 272Е8С (エス ケ ) 
245 F5 w 28 は つ 
246 Fé 月 2914 — | “ж 
247 F7 В カー ソル の 
248 F8 к эне | 
249 Р? 分 31 は } 
в 
ж 
円 
А 
+ 
ғ 


ж 効果 は 接続 する プリ ンタ ー な どの 機種 に よっ て 異な る . 拡大 文字 , 縮小 
文字 の 指令 な ど に 用 いら れる 。. 

жж 標準 の コー ド 表 か ら 抜 け 出 す た め の コー ド . 特殊 文字 や 特殊 制御 に 用 
いら れる . 


付録 C X1 独 特 の 命令 お よび 関数 


テレ ビ と の スー パー イン ボー ズ お よび テレ ビ 制 御 は 本 機 独特 の 機能 で 。 
СЕНІ» 


ASK 自動 ON, OFF 用 タイ マー の 設定 
CHANNEL チャ ン ネ ル 指 定 

CRT テレ ビ と コン ピュ ー タ ー の 切換 え ぇ (重複 も 可 ) 
SCROLL コン ピュ ー タ ー 画 面 の スク ロー ル 

TVPW テレ ビ の 電源 の ОМ, OFF 

VOL 音量 指定 


な どの 命令 が ある . 詳し く は 付録 E で 説明 する . 

カセ ッ ト ・ テ ー プ の 制御 は MZ-80B や MZ-2000 で は で きる が 一 般 に 
は 珍し い . 前 方 。 後方 。 各 50 箇 まで の プロ グラ ム や デー ター の 自動 頭 出 
し が で きる よう に な っ た の は 大 き な 進 歩 で ある . この 関係 の 命令 と し て 
は 下記 の 五 つ が あり , 詳し く は 付録 F で 説明 する . 


APSS 自動 頭 出し 

CMT カセ ッ ト の 状態 を 調べ る . その 他 . 
CSTOP 停 止 

FAST 早送り 

REW 巻 戻 し 


本 機 に は 。 グラ フィ ッ ク RAM を デー ター や プロ グラ ム の 記憶 の た め 
に 転用 で きる と いう 面白 い 機 能 が あり , その た め の 命 令 お よび 関数 
OPTTON SCREEN 用 途 切 換え 
DEVT$ 読み 出し 
DEVO$ 書き 込み 
な ど が 用 意 き れ て いる . これ に つい て は 付録 G で 説明 する . 
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グラ フィ ッ ク 関 係 の 内 。 

SCREEN "マル チ ・ ペ ー ジ の 指定 

CANVAS 表示 画面 の 選択 

WINDOW 自動 スケ ー リ ング 


PALET 色 番 号 の 変更 

POLY 正 多 角形 の 表示 
な どの 機能 は , 他 の いく つか の 機種 に も ある が , な か な か 便利 で 利用 効 
果 の 大 きい 命令 で ある . 

LINE 直線 を 引く 

СІНСІЕ 円 を 描く 

РАІМТ ぬり つぶ す 


ЖЕН, 命令 た し て は それ ほど 珍し いも の で は な い が , 本 機 は オプ ショ 
ン 機 能 が 充実 し て お り , な か な か 使い よく , た と えば 
LINE 文 で 点線 を 描け る 
ーー つの LINE 文 で 三 つ 以 上 の 点 を 折れ 線 で 結べ る 
CIRCLEE 文 の 角度 指定 は 度 (degree) 単位 で 使い 易い 
PAINT 文 で タイ オリ シグ が 可能 


な どの 特長 が ある . 
文字 の 画面 表示 関係 は な か な か 強力 で ある . まず 
CREV 反転 表示 


CFLASH 点滅 表示 
な ど は , 機能 的 に は それ ほど 珍し く な い が , 命令 が 独立 し て 使い 易く な っ 
て いる 。 利用 者 が フォ ント や グラ フィ ッ ク ・ パ ター ン を 作っ て 表示 する 
機能 に 関し て は , 強力 な 命令 
CGEN キャ ラク ター・ ジ ェ ネ レー ター の 切換 え 
DEF CHR$ キャ ラク ター・ ジ ェ ネ レー ター の 書き 込み 
PATTERN "グラ フィ ッ ク ・ パ ター ン の 表示 
や , 関数 
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CGPAT キャ ラク ター・ ジ ェ ネ レー ター に 入っ て いる 文字 
の ドッ ト ・ パ ター ン を ビッ ト ・ パ ター ン ・ デ ー タ ー 
と し て 取り 出す 


が 用 意 さ れ て お り , 手間 を か けれ ば 相当 に 面白 いこ と が で きる 仕掛 け に 
な っ て いる 。 漢字 の 表示 に 関し て は , 関数 
КАМЈІ$ 漢字 の ドッ ト ・ パ ター ン を 与え る 
が ある (た だ し 漢字 КОМ が 必要 ). 文字 の 表示 の 優先 度 を 指定 する 命令 
PRW 文字 と 図形 の どちら を 優先 する か を 指定 
を も っ て いる こと も 本 機 の 大 き な 特長 で ある . 
INIT 文 に つい て は 7 章 で 少し 説明 し た が 。 特長 ある 命令 で ある . 


INIT 5 周辺 装置 に 関す る いろ いろ な 指定 を 標準 状態 に も どす 
機能 を も つ . 書き 方 と その 意味 は 次 の と お り . 
1) INIT "СЕТ: また は 単に ІМІТ 
これ は 次 の プロ グラ ム と 同等 の 効果 を も つ . 
COLOR 7,0 黒地 に 白 
CGEN 標準 の キャ ラジ ェ ネ 使用 
CFLASH 点滅 し な い 
CREV 反転 し な い 
CSIZE 文字 の 大 き さ は 普通 
РАҺЕТ パレ ッ ト コ ー ド を 人 色 番 号 に 一 致 さ せ 
る . 
WINDOW 画面 全域 。 画面 座標 使用 
CONSOLE 全域 スク ロー ル 
SCREEN 0,0,0 ペー ジ 0 で 書き 込み , 表示 
PRW 図形 より も 文字 を 優先 
2) INIT "сда" 
カセ ッ ト ・ テ ー プ を 巻き 戻し , 1 巻 全部 を 消去 する . 
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それ か ら , DEVICE と いう 命令 が ある 。 カセ ッ ト ・ テ ー プ だ け の シ 
ステ ム で は あま り 利 用 価値 が な い が ,。 ディ スク や 外部 メモ リー (増設 
RAM) な ど を 使用 する 際 に は 便利 な も の で ある . 


DEVICE 文 装置 名 の デフ ォ ル ト 値 (指定 を 省略 し た と き に 用 い 
られ る 標準 指定 値 ) を 変更 する . 書き 方 は , 
DEVICE "装置 名 :" 
T, 装置 名 と し て は 。 た と えば 


CAS ЯЛАР УАР ет 

МЕМ グラ フィ ッ ク RAM 

EEMMz 外部 RAM (и = 0--9) 
な ど が 指定 で きる . 


関数 で は , 3 章 で 説明 し た 
ҒАС (ли) ШЕЕ: 
SUM( z ) n まで の 整数 の 和 
КАР” (х) 度 を ラジ アン に 変換 
FRAC(x) 小数 部 
な ど は 普通 の BASIC に な いも の で ある が , その ほか , 次 の よう な 面白 い 
関数 が ある . 


ВІМ これ は 数 値 ( た だ し 整数 値 に 限る ) を 2 進 法 表現 の 文字 列 
に 変換 し て くれ る 関数 で ある . 数 値 を 16 進 法 表 現 の 文字 列 に な お す 関 
ЖНЕХ$ は 多く の 機種 で 使用 で きる が , 2 進 法 表現 に な お し て くれ 
る 関数 は 珍し い . ベテラン な ら 了 H 互 X$ さえ あれ ば 十分 で ある が 初心 


者 に は BIN$ は 有用 だ と 思う . 書き 方 は 

BIN$ ( 数 値 型 変数 名 また は 数 式 ) 
T, 数 値 は 16 ビ ッ ト の 整数 型 に 変換 され た 上 で , 0 と 1 の 文字 列 に 変 
換 さ れ , その 上 位 の 0 を 省 い た も の が BIN$ の 値 に な る . 
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(使用 例 ) 入力 し た 数 値 N を 2 進 法 表 現に な お し て 出力 する プロ グラ ム 
を 作っ て みよ う . 最も 簡単 に 書け ば 
INPUT М 
PRINT BIN$(N) 
で よい は ず で ある が ,。 これ だ け だ と ゼロ ・ サ プレ ス (上 位 の 不要 な 0 を 
消す ) 機能 の た め , 
0 を 入れ れ ば 出力 は 0 
1 を 入れ れ ば 出力 は 1 
と な っ て 面白 く な い 。 そこ で 。 頭 に 0 を 補う た め 。 
0 を 16 字 並べ て BIN$(N ) の 左 に 連結 する 
その 結果 の 右側 16 桁 を 関数 RTGHT$ で 取り 出す 
と いう 細工 を する (ゼロ ・ サ プレ ス を も と に も どす た め の 定 石 ) プロ グ 
ラム お よび 実行 例 は 次 の よう に な る . 
19 INPUT М 
28 B$=BIN$ (N) 
30 C$=RIGHT$(STRING$ (16, "0")+B$, 16) 


48 LPRINT М, СФ 
58 GOTO 109 


3 9999999999999911 
2 9999999999999919 
1 9999999999999991 
9 9999999999999999 
=] 1111111111111111 
же 1111111111111119 
-3 1111111111111101 


OCT$ これ は 8 進 法 表現 に 変換 する 関数 で ある .。 書き 方 は 


OCT$ ( 数 値 型 変数 名 また は 数 式 ) 


[使用 例 ] [実行 例 ] 

10 INPUT N 1 8981 
20 B$=0CT$ (N) 10 9912 
30 C$=RIGHT$ (STRINGS (4, "0") +8%,4) 100 8144 
40 LPRINT N, C$ -1 7777 


58 GOTO 10 -16 7760 
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MIRROR$ と を れ は 。 た と えば 
10100111 — 11100101 

と いう よう に 。 ビッ ト の 列 を 逆順 に 並べ 換え て くれ る 関数 で ある 。 こ 
の よう な 機能 は , グラ フィ ッ ク て で 左右 対称 な 図形 を 表示 する 場合 に 便 
利 で あり , 高速 フー リエ 変換 な どの 際 に も 必要 に な る . これ は 普通 の 
機能 だ け を 用 いて プロ グラ ム を 書く と 割合 に 手間 が か か り , 処理 時 間 
も か か る も の で あっ て , これ が 組込み 関数 と し て 使用 で きる よう に 
な っ た こと は 非常 に 喜ば し い . 

た だ し ,。 使用 法 に 関し て は ,。 いろ いろ と 制約 が ある の で 。 下記 の 諸 
点 に 注意 する 必要 が ある . 

1) 引数 は 文字 列 型 で な せな けれ ば いけ な い 。 

2) 逆順 変換 は バイ ト 内 で の み 行 な われ る . 

( 例 ) 1110001101000001 


逆順 逆順 


г г =y 


0100011110000010 
3) 逆順 変換 を 行なう と , 引数 の 内 容 も 逆順 に な っ て し まう . 
( 例 ) A$ の 内 容 が 11100011 の と き 
B$=MTRROR$(A$ ) 
と すれ ば , ВФ の 内 容 は 当然 ユ 11000111 に な る が , 同時 に A$ の 内 
容 も 11000111 に 変っ て し まう . A$ の 内 容 を 変え た た く な けれ ば 
В$=А$ 
B$=MTRROR$( B$ ) 
と すれ ば よい (逆順 の また 逆順 に な っ て , も と に も どっ て し まう の で 
は な いか と 心配 され る か も し れ な い が , そう は な ら ず ,。 上 記 の よう に 
すれ ば 確か に B$ は A$ の 逆順 に な る ). 
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[MIRROR$ の 使用 お よび 実行 例 ] キー ボー ド か ら 文 字 列 を 入力 し , そ 


の ビッ 


19 
29 
39 
49 
59 
る 9 
70 
89 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


ABC 
A$ 
B$ 


ト ・ バ パターン を 逆順 に 変換 する プロ グラ ム を 作っ て みよ う .。 


INPUT А% 

КЕРЕАТ 

LPRINT A$ 

N=LEN (A$) 

LPRINT "A$ "; 

FOR Ісі TO N 
C$=MID$ (A$, I, 1) 
D$=RIGHT$ (STRINGS (8, "0")+BIN$ (ASC (C$)>), 8) 
LPRINT D$;" "; 

NEXT I 

LPRINT 

B$=MIRROR$ (A$) 

LPRINT "B$ "; 

FOR I=1 ТОМ 
C$=MID$ (B$, I, 1) 
D$=RIGHT$ (STRINGS (8, "0") +BIN$ (ASC (C ま まう) ) 8) 
LPRINT D$;" "; 

NEXT I 

LPRINT : LPRINT 

INPUT A$ 

UNTIL A$="x" 


01000001 01000010 01000011 
10000010 01080010 11000010 


アイ ウェ オ 


A$ 
B$ 


10110001 101108010 10110011 10110108 10110101 
10001101 01001101 11001101 00101161 19101101 


pet 


A$ 
B$ 


11100010 11100011 11100108 111090181 
01000111 11000111 00100111 10100111 


バイ ト の 順序 も 逆 に し た けれ ば , 行 140 以 降 を 次 の よう に 変更 すれ ば よ 


з, 
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140 ЕФ-"" 
150 FOR I=N ТО 1 STEP -1 

160 C$=MID$ (B$, 1,1) 

170 D$=RIGHT$ (STRINGS (8, "@"› +В1М% (ASC (C$)), 5) 
189 LPRINT D$;" "; 

190 Е%Ф-Е%%0% 

200 МЕХТ 1 

218 LPRINT : LPRINT 

220 INPUT АФ 

238 UNTIL A$="x" 


ABCDEF 
A$ 01000001 01000018 81000011 01000100 01000101 01000110 
B$ 011008018 10100010 00100010 11000810 01000010 10000010 


HEXCHR$ ビッ ト ・ パ ター ン を プロ グラ ム の 中 に 書く 方 法 と し 
て は 
&B 2 進 法 の 文字 列 ( 例 ) &BO101 
&O 8 進 法 の 文字 列 ( 例 ) &0237 
& 了 16 進 法 の 文字 列 ( 例 ) &HFC2A 
CHR$( &H16 進 法 の 文字 列 ) ) 文字 列 型 
後述 の MKT$, MKS$, MKD$ を 用 いる ) に な る 
な ど が ある が , 上 の 四 つ は 16 ビ ッ ト , MKS$ で 32 ビ ッ ト , MKD$ で 
も 64 ビ ッ ト ま で し か 使え な い . と ころ が , グラ フィ ッ ク 関 係 で は も っ 
と 長い ビッ ト ・ パ ター ン を 書き た いこ と が よく ある 。 そう いう 場合 。 
HEXCHR$ を 用 いる と よい . これ は 
HEXOCHR$( 16 進 法 の 文字 列 ) 
( 例 ) HEXOCHR$( 91E3') 
と 書く . 16 進 法 の 文字 列 は (文字 列 型 と し て 表せ る 限り ,。 すなわち 254 
桁 ま で な ら ) いく ら 長 く て も よい . その 文字 列 は (16 進 法 の 2 桁 が 1 
バイ ト に な る か ら ) 先頭 か ら 2 字 ず つが 一 組 に な っ て 対応 する 文字 に 
変換 さき れる . し た が っ て , 文字 列 の 長き は 半分 に な る . 


| жш 
| に な る 
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[備考 ] 引数 の 文字 列 の 中 に 空白 が ある と , そこ が バイ ト の 区 切り と み 
な され る . 空白 が 最初 か ら バ イト の 区 切り に あれ ば 単 に 無視 され る 。. 
( 例 1 ) 


10 РФ=НЕХСНКФ ("1 2 З") 
20 ОФ=НЕХСНЕФ ("010203") 


30 IF Р%-0% THEN LPRINT "773°" ELSE LPRINT "Ял?" 


RUN 
オナ シ ~ 


( 例 2 ) 


10 5%="" 

20 FOR I=&HB1 ТО &HBF 
39 5%=5%+НЕХФ (1) +" " 
40 МЕХТ І 

50 ТФ=НЕХСНЕ% (S$) 

60 LPRINT 5% 

70 LPRINT ТФ 


Ві B2 ВЗ B4 B5 Bó B7 ВЗ В? ВА ВВ ВС BD ВЕ BF 
アイ ウェ オカ キク ケ コ サ シ ス セ ソ 


MAXFILES ファ イル 入出 力 の 関係 で は MAXFILES と いう 命 
令 が 書き 方 と し て ちょ っ と 珍し い . これ は 同時 に オー プン で きる ファ イ 
ル の 数 (じつは それ が 「 使 用 で きる ファ イル 番号 の 最大 値 ] で も ある ) 
を 指定 する も の で , 

MAXFILES 同時 に オー プン する ファ イル の 数 
( 例 ) MAXFILES る 
と 書く (特に 指定 し な けれ ば 1 と な る . また , 16 以 上 は 指定 で き な い )、 
この 種 の 指定 が で きる こと 自体 は 。 べつ に 目新し いこ と で は な い が , 他 
機種 ご は た いて い シ ステ ム の 起動 時 に 指定 する よう に な っ て いる た め 。 
最初 に 使う 人 が これ を 小さ く 設 定 し て し まう と あと の 人 が 困る (その た 
d, シス テム 起動 か ら や りな お さき なけれ ば な ら な い ) と いう 難点 が あっ 
Z. それ を 命令 と し て 独立 させ た の は た い へ ん 良い こと だ と 思う . 
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МКІ$, MKS$, MKD$, CVI, CVS, CVD な どの 関数 は , ディ スク 
BASIC に は た いて い 付 いて いる が 。 本 機 で は ディ スク BASIC で な く て 
も 使用 で きる た め , 普通 の 文字 列 処理 や ビッ ト 操 作 に 利用 で き て 便利 で 
ある . 簡単 に 説明 する と , 
MKT$ 整数 型 デ ー タ ー (16 ビ ッ ト ) を 2 バイ ト の 文字 列 型 デー 
ター と みな し て 扱う (読み 換え る ) 
MKS$ 実数 型 デ ゲー ター (32 ビ ッ ト ) を 5 バイ ト の 文字 列 型 デ ー 
ター と みな し て 扱う (読み 換え る ) 
MKD$ 倍 精度 実数 型 デ ー タ ー (64 ビ ッ ト ) を 8 バイ ト の 文字 列 
型 デ ー タ ー と みな し て 扱う (読み 換え る ) 
CVI 2 バイ ト の 文字 列 を 整数 型 デ ー タ ー と みな し て 扱う 
CV8 5 バイ ト の 文字 列 を 実数 型 デ ー タ ー と みな し て 扱う 
CVD 8 バイ ト の 文字 列 を 倍 精度 実数 型 デ ゲーター と みな す 
と いう も の で 。 数 値 型 デ ー タ ー を カセ ッ ト ・ テ ー プ や ディ スク に 記録 す 
る 場合 。 
= МКІ$, МК5%, MKD$ な ど て で 文字 列 型 に な お し て 記録 
=" 再生 し た 文字 列 は CVY エ T, CVS, CVD な ど で 数 値 型 に も どす と 
する の が 本 来 の 使用 法 で ある . 具体 的 に は , 次 の よう に する . 
( 例 ) z 箇 の デー ター ム ム ,。 の の ,。…。@ の , を カセ ッ ト ・ テ ー プ に 記録 する プロ 
グラ ム は 。 最も 平凡 に 書く と 次 の よう に な る 。. 


68 ОРЕМ "0415 "7" egu 
70 FOR 1=1 TO N 

80 PRINT #1,АСІ) 
90 МЕХТ І 

100 CLOSE #1 

110 BEEP 


これ は 割合 に 時 間 が か か る (た と えば ァ z 三 300 の と き , 約 1 分 半 か か 
る ).、 カ セッ ト ・ テ ー プ や ディ スク に 記録 する 場合 , PRINT# の 終り に 
; 印 を 付け て (上 の 例 で は , 行 80 を 

80 PRINT %1,А(І); 
に する ) デー ター の 間 の 空白 を な る べく 少な くす る 方 が よい , と いわ れ 
て お り , 同様 な ね らい で 後述 の WRI 下 刀 # 文 を 用 いる 。 と いう の も 一 案 
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で ある が , 上 記 の 例 の よう な 場合 に は , あま り 効 果 が な い . 

上 の 方 法 で な ぜ 時 間 が か か る か と いえ ば , ディ スプ レイ や プリ ンタ ー 
に 出力 する た め の 文 (PRTNT# 文 は , 本 来 。 そう いう 命令 で ある ) を 
用 いて いる 関係 上 , デー ター は すべ て 10 進 法 の 文字 列 に な お し て 記録 さ 
れる こと に な り ,。 表 に は 見 えな いけ れ ど も , ずい ぶん ムダ な こと を や っ 
て いる わけ で ある (その 結果 , 記録 する ビッ ト 数 が 多く な っ て し まい 
書き 込み , 読み 出し に 時 間 が か か る )、. 

これ を 避け る に は デー ター を 内 部 表現 ( 2 進 法 の 形 ) の まま カセ ッ ト ・ 
テー プ に 記録 すれ ば よい . その た め に MKT$。 MKS$, MKD$, СУ 
I, CVS, CVD な どの 命令 が ある わけ で ある . し か し , これ を 使う に 
は , ちょ っ と コツ が いる 。 平凡 な 考え 方 で いく Б, 

PRINT#1, МК8$(А(І)) 
で 書き 込ん で 

ІМРОТ#1, B$ 

А(І)-СУӘ8(В%) 

と すれ ば よさ そう で ある が , それ で は 正しく 読め な い . 

INPUT# 文 は INPUT 文 の 仲間 で , も と も と は キー ボー ド 入 力 の 
た め の 命 令 で あり , 「 字 数 を 指定 し な いで 入力 で きる 」 と いう 点 に 大 き な 
特長 が ある . た と えば FORTRAN の 場合 * に は 入力 デー ター の 字数 ( 桁 
Ж) を プロ グラ ム で 指定 する 方 式 に な っ て お り 。 キー ボー ド か ら 入 力 す 
る 場合 で も , プロ グラ ム で 指定 され た 字数 に 合わ せ て (デー ター の 方 が 
短 か す ぎ た ら 空白 を 付け て ) 入力 し な けれ ば な ら な い . それ に 対し , 
BASIC の INPUT X}, デー ター の 字数 ( 桁 数 ) を 指定 する 必要 が な 
<, 入力 の 字数 が 自由 な の で 非常 に 使い 易い そう いう こと が で きる の 
8, デー ター の 区 切り を 区 切り 記号 (INPUT 文 の 場合 コン マ ま た は 


(а) で 検出 し て いる か ら で あ る . 


* FORTRAN 77 や それ に 類似 の 拡張 FORTRAN で は BASIC と 同様 の 
扱い も 可能 で ある が . 
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普通 の 文字 列 の 入力 に は それ で よい . し か し 内 部 表現 ( 2 進 法 ) の ビッ 
ト 列 を 8 ビッ ト ず つ 区 切っ て 文字 と みな し て 扱う (MKS$ 等 の ) 場合 に 
は 少々 ぐあい の 悪い こと が ある . ま ず 考 えら れる こと は , ビッ ト の パタ ー 
ン が 偶然 , 

コン マ を 表す コー ド 00101100 

[ 局 を 表す コー ド 00010011 
に 一 致し た ら 困 る , と いう こと で あろ う 。 この よう な パタ ー ン が 入っ て 
くる と ,。 それ を 区 切り 記号 と みな し て し まう . 文字 列 デ ー タ ー と し て は 


! を 表す コー ド 00100010 
も トラ ブル の 原因 と な る . も っ と 困る の は 
ヌル ・ コ ー ド O00000000 


T, これ は BASIC で は 文字 と し て 扱わ れ な い 仕 組み に な っ て いる . た と 
えば , カセ ッ ト ・ テ ー プ に これ が 記録 きれ て いて も 「 こ れ は 文字 で な い 」 
と いう 理由 で 無視 され て し まう (入力 され な い ). 

そう いう わけ で , TNPUT# 文 は MKS$ 等 で 変換 され た デー ター の 
入力 に 用 いる こと は で き な い .。 それ で は どう すれ ば よい か と いう と 。 F 
する に 「 字 数 ( 桁 数 ) 指定 方 式 の 入力 命令 」 で 読め ば よい . 

BASIC で 使用 で きる 「 字 数 ( 桁 数 ) 指定 方 式 の 入力 方 法 ] と し て は 
TNPUT$ と いう 関数 が ある . これ は ファ イル 入力 に も 使用 する こと が 
で き て , その 場合 は 次 の よう に 書く . 


TNPUT$( 字 数,.# フ ァイル 番号 ) 


( 例 ) TNPUT$(5,#1) 


これ を 用 いて 作っ た プロ グラ ム の 一 例 を 以下 に 示す . 行 8000 か ら 8040 
まで は テス ト ・ デ ー タ ー を 生成 する プロ グラ ム で , 書き 込み の プロ グラ 
ム は 行 8060 か ら 8140 ま で で ある . 後 日 , こ れ を 再生 する に は 行 8500-8600 
の プロ グラ ム を 実行 すれ ば よい . 
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8999 INPUT N 

8010 DIM AN? 

8020 FOR 1=1 TO N 

8030 А<12ғ1/1 

80408 NEXT I 

8050 LABEL "カキ コミ " 

8060 INPUT "ファ イル メイ NN? "ドド 生 
8070 OPEN "0",81,Ғ% 


8080 FOR I=1 TO N 
89 ヶ 9 PRINT 81,МК5%<4<122; 
8199 NEXT I 


8110 PRINT #1 

8120 CLOSE #1 

8130 APSS -1 

8140 END 

8500 LABEL "аяла" 

8510 INPUT N 

8520 DIM A(N) 

8530 INPUT "ファ イル メイ ND?" ドド を 
8540 OPEN "1",#1,Е% 

8550 FOR Ісі ТОМ 


8560 B$=INPUT$ (5, #1) 
8570 А1) = じ US (B$) 
8580 PRINT АС1› 

85 ヶ 9 NEXT І 


8608 CLOSE #1 
[注意 ] これ で 一 応 は 動く けれ ども 。 この プロ グラ ム に は 一 つ 。 Хаж 
欠点 が ある . それ は ,。 ビッ ト ・ パ ター ン と し て 

[BREAK] の コー ド 00000011 

が 入っ て くる と デー ター と は みな され ず ,|BR 包 AKI キー が 押さ れ た , と 
解釈 され て し まう (INPUT$ の 文法 が その よう に 定め られ て いる ) か 
ら で あ る . あい に く 本 機 で は ON STOP GOSUB と いう 文 を 使 
えな い の で , この 難点 は 簡単 に は 解決 で き な い . 

それ で は ,。 ど うす れ ば よい か と いう k, DEVI$, DEVO$ と いう 命 
令 で 入出 力 を 行 な を ば よい の で ある *。 これ は 1 レコー ド (256 バ イト ) 
単位 で 入出 力 を 行なう 命令 で , 他 機 種 の ディ スク BASIC の ラン ダム ・ ア 
クセ ス ・ フ ァイル 用 の 命令 GEET, PU に 相当 する も の で ある が 。 使い 
方 は 少し 異な り , 次 の よう に 書く . 


ж DEV ił device, І は input。 〇 O は output の 意味 . 
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(入力 ) 

DEVI$ "装置 名 :!。 レ コー ド 番 号 。 変数 名 1 , 変数 名 2 
(出力 ) 

DEVO$ "装置 名 :!。 レ コー ド 番 号 , 変数 名 1 。 変数 名 2 

(1) DEVIS "СА8В:!",1,Р%,0% 

рЕУО% "САВ:!",1,Ғ1%,Ғ2% 

ここ で 「 変 数 名 1 」、「 変 数 名 2 」 と 書い て ある の は , 

(入力 時 ) 入力 し た デー ター の 格納 先 

(出力 時 ) 出力 すべ き デ ー タ ー が 入っ て いる と ころ 

を 表す 文字 列 変数 名 で 。 な ぜ 二 つ に 分 か れ て いる か と いう と 。 入 出力 
単位 (1 レコ ー ド の 長 さ ) は 256 バ イト で ある が 。 文字 列 型 デ ー タ ー は 
最大 255 バ イト まで し か 扱う こと が で き な い た め 。 前 半 と 後半 に 分 け , 
各 128 バ イト ずつ 入れ る よう に し て いる の で ある . 出力 時 (命令 DEV 
O$) の 変数 名 1, 変数 名 2 の 内 容 は , それ ぞ れ が , ちょ うど 128 バ イ 
トト で な けれ ば いけ な い (違反 する と 文法 エラ ー と いう こと で 止ま っ て 
„Ж 2), 


[備考 ] 装置 名 と し て は , カセ ッ ト ・ テ ー プ を 表す CAS の ほか 
МЕМ グラ フィ ッ ク ・ メ モリ ー 
EMM n 外部 メモ リー (n = 0—9) 

な ど を 書く こと が で きる 。 

DEVT$, DEVO$ を 使う た め に は , デー ター を 256 バ イト ずつ ま と 
め て (ある い は も う 少 し 小さ な 単位 で まとめ て 後に 詰め 物 を 入れ て 256 バ 
イト に し て ) 記録 し , 再生 後 そ れ を また 仕分 けし な けれ ば な ら な いか ら 
手間 が か か る . 参考 まで に その よう な プロ グラ ム の 一 例 を 以下 に 示す . 
この よう に すれ ば 記録 , 再生 の 所 要 時 間 を , 最初 に 示し た 「 最 も 簡単 な 
方 法 」 の 1/3 以 下 に 短縮 する こと が で きる . 


210 


8999 
8919 
8929 
8939 
8949 
8959 
8060 
8070 
8989 
8090 
8109 
81160 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8299 
8210 
8229 
8239 
8249 
8250 
8260 
8270 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8500 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
86?0 
8700 
8718 
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КЕМ ЖИНИНЕ MKS SUB ИЛЛ 
КЕМ アラ カシ メア 74+ 277771" Ж アタ イロ 
КЕМ М オヨ ョ ヒ ~ A • AN) 
LABEL "カキ コミ " 
ОІМ В% (2) 
М-і 
MADE =N\59+ 1 
FOR К=1 TO MADE 
FOR Ј=1 TO 2 
B$(J)="" 
FOR Ізі TO 25 
B$ (J) =ВФ (J) +МК5% (AM)? 
IF M=N GOTO "+111" 
M=M+1 
NEXT I 
NEXT J 
LABEL "+111" 
FOR 7-1 TO 2 
L=LEN(B$<(J)) 
B$ (J) =В%Ф (J) +STRING$ (128-1, "U") 
NEXT J 
DEVOS "Саб:",К,В%<12,В%С2) 
NAPSS=K 
IF M=N GOTO "770" 
NEXT K 
LABEL "777" 
APSS -NAPSS 


LABEL "3333" 
INPUT "М=",М 
DIM ACN), B$ (2) 
M=1 
MADE =N\59+ 1 
FOR K=1 TO MADE 
IF М>-М GOTO "END" 
ОЕМ1% "СА5:";К;В%с12;,В%Сс2) 
FOR J=1 TO 2 
FOR 1=@ TO 24 
C$=MID$ (B$ (Ј),5жІ+1,5) 
ACM) =CUS (C$) 
IF M=N GOTO "END" 
M=M+1 
NEXT I 
NEXT J 
NEXT K 
LABEL "END" 
FOR I=1 TO N 
PRINT АІ) ы 
IF (I MOD 10) =0 THEN PAUSE 30 
NEXT I 
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以上 の ほか , ちょ っ と 珍し い 関 数 と し て は 次 の よう な も の が ある . 


DTL これ は , いわ ば 「DATA 文 の 現在 位置 ] を 教え て くれ る 関 
数 で 。 正確 に いえ ば 「 次 に 読み 込ま れる DAPTA 文 の 行 番号 ]」 が DTL 


の 値 に な る . た だ し 最後 の デー ター を 読み 終っ た あと は , 最後 の DAT 


A 文 の 行 番号 に な る 。 引数 は 不要 で 単に DTL と 書く . 
( 例 ) (実行 結果 ) 

10 рата 1 20 1 

20 DATA 2 38 2 

зә рата з 49 3 

40 DATA 4 58 4 

50 рата 5 50 5 


る 9 FOR 1=1 ТО 5 

70 READ ACI) 

80 LPRINT DTL, А<12 
90 NEXT I 


KEY 0 これ は キー ボー ド 入 力 バ ッ フ ァ ー に 文字 列 を 書き 込む 
命令 で あっ て ,。 次 の よう に 書く . 
KEY Ọ," XFA" 
この 文 を 実行 する と , "内 に 書か れ た 文字 列 が . そ の と き キ ー ボ ー ド 


か ら 入 力 さ れ だ た の と 同じ こと に な る . 
[注意 ] 文字 列 の 長き は 63 字 以下 で な けれ ば いけ な い . 64 字 以上 だ と 
後 の 部 分 は 無視 きれる. 


(応用 例 ) DATA 文 や PLAY 文 を た くさ ん 書く と き , いち いち DA 
A と が PLAY と いう 綴り を 入れ る の は めん どう で ある . そこ で , 行 番号 
を 自動 的 に 発生 し , さら に DATA と いう 文字 も 付け て くれ る プロ グラ 
ム を 作っ て みた . あと は 正味 の デー ター だ け を キー ボー ド か ら 入 れれ ば 
іл», 入力 され た プロ グラ ム は , 一 応 「 デ ー タ ー」 と し て 文字 列 型 配列 
A$ に 格納 され る . それ を プロ グラ ム と し て 利用 する に は , A$ の 内 容 を 
ファ イル (カセ ッ ト ・ テ ー プ また は グラ フィ ッ ク ・ メ モリ ー) に 書き 込 
AT, あら た め て それ を MERG 世 すれ ば よい . 
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10 INPUT "252": 

20 DIM A$ (N? 

30 FOR 1=1 ТОМ 

48 KEY 0,5ТК%(1ж100%"“ DATA " 
50 INPUT АФ СІ) 

60 МЕХТ І 

70 КЕМ 7° リン トシ テ ミ マ ショ ウ 

80 FOR I=1 ТОМ 

90 LPRINT АФ СІ) 

100 NEXT І 


(実行 例 ) (11001237 を 入れ 。 行 50 で 
SUN MON TUE WED THU ЕНІ SAT 
を 入れ れ ば , 出力 (すなわち 配列 A$ の 内 容 ) は 次 の よう に な る . 


19 DAT SUN 
28 DATA MON 
30 DATA TUE 
40 DATA WED 
50 DATA THU 
69 DATA FRI 
70 DATA SAT 
次 の 六 つ は 他 の 二 , 三 の 機 種 に も 同様 な 機能 を も つも の が ある が 。 一 


応 こ こ で 説明 し て お く 。 


REPEAT OFF 、 キ ー ボ ー ド の オー ト ・ リ ピー ト 機 能 の 停止 (OFF) 
REPEAT ON / お ぉ ょ び 再 開 (ОМ) 

CLICK OFF 、 キ ー ボ ー ド の クリ ッ ク 音 の 停止 COFF) お よび 再 
CLICKON  ! 開 (ON) 

STICK (n) ジョ イス ティ ッ ク の 向き を 知る 

STRIG (n) ジョ イス ティ ッ ク の ボタ ン の 状態 を 知る 


た だ し は ジョ イス ティ ッ ク の 番号 (1 また は 2) で 。z ニ 0 と すれ 
ば 「 テ ン ・ キ ー で 代用 」 と いう こと に な る (押し 7 8 g 
ボタ ン は スペ ベー ス ・ バ ー で 代用 ).、 向き の 表し 方 は 

右 図 の と お り で 要する に 「 テ ン ・ キ ー の 配列 と 同 

сі. 関数 STRTG の 値 は 押さ きれ て いる と き 一 1 
押さ れ て いな いと き 0 と な る . 
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最後 に な っ た が , SEARCH と いう コマ ンド に つい て 説明 し て お く 。. 
これ は HuBASIC 独特 の コマ ンド で 。MZ-80C/K の 頃 か ら 非 常に 重宝 
が られ た も の で ある . 

機能 は , 現在 メモ リー に ロー ド さ れ て いる プロ グラ ム を 行 番号 順に 調 
べ て いっ て 。 指定 し た 綴り が 文 の 中 に あっ た ら そ の 行 番号 を 表示 する . 
指令 方 法 は 次 の と お り . 


SEARCH "Шу" 


用 途 と し て は , た と えば 次 の よう な も の が 考え られ る 。. 

1) ある 変数 名 が どこ に 使わ れ て いる か を 調べ る . 

2) ある ラベ ル が どこ に 書い て ある か 。 また どこ で 参照 きれ て いる か 
を 調べ る . 

3) ある 命令 の 使用 箇所 を 調べ る . た と えば DTM を 全部 リス ト ・ ア ッ 
プ す れ ば , 使用 きれ て いる 配列 が 全部 わか る . 

4 ) 変数 の 値 が どこ で 書き 換え られ て いる か を 調べ る . た と えば , Ж 
数 A に つい て 調べ る の で あれ ば 

SEARCH "A=" 

と すれ ば よい (あと , 入力 関係 の 命令 を リス ト ・ ア ッ プ し て みる ). 

5) ある 定数 が どこ に 書い て ある か を 調べ る . デバ ッ グ の 際 に うま く 
使う と 役に立つ . 
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D. 1 割り 込み と は 


割り 込み (interrupt) と は 。 一 つの プロ グラ ム の 実行 中 に , 緊急 の プ 
ログ ラム を 優先 的 に 実行 する た め 。 今 の 仕事 を 中 断 さ せ て 緊急 の 仕事 に 
切り 換え る こと を いう . 

た だ し , 単に [BREAK|] キ ー で 実行 を 中 断 し , あと で 実行 を 再開 する た 
め の 情 報 ( 行 番号 な ど ) を メモ し , 別 の プロ グラ ム を ロー ド し て 実行 さ 
せる ,。 … と いう よう な の は , 普通 ,「 割 り 込 み 」 と は 言わ な い 。 狭い 意味 
で は , これ ら ( 今 の プロ グラ ム の 中 断 。 緊急 の プロ グラ ム へ の 切り 換え , 
以前 の プロ グラ ム の 実行 再開 ) が 全部 自動 に 行なわ れる 場合 を 「 割 り 込 
A] と 呼ん で いる 。. 

具体 的 に は , 本 機 の 場合 

ファ ンク ショ ン ・ キ ー を 押し た と き 
実行 中 に 異常 事態 が 発生 し た と き 
な ど に , 自動 的 に 
実行 中 の プロ グラ ム を 中 断 し 。 
処理 プロ グラ ム を 起動 し , 
処理 終了 後 。 以前 の プロ グラ ム を 再開 する 
こと が で きる 。. 
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D.2 "プロ グラ ミン グ の 要領 


割り 込み 処理 を 行なう に は ,。 次 の こと が 必要 で ある . 
1) 処理 プロ グラ ム の 作成 と ロー ド 
割り 込ん で 実行 すべ き プ ログ ラム を 作成 し 。 メモ リー に 入れ て お 
<. 
2) 入口 の 行 番号 の 登録 
どう いう 種類 の 割り 込み が あっ た と き に ,。 どの プロ グラ ム を 実行 
させ る か , と いう こと を 
ON 割り 込み の 種類 GOSUB 入口 の 行 番号 
3 ) 割り 込み 許可 。 禁止 。 中 断 
あま り 勝 手 な と き に 割り 込み を され て は 困る こと が 多い の で , ファ ン 
クシ ョ ン ・ キ ー の 割り 込み に 関し て は 割り 込み を 許可 し た り 禁 止 し た り 
中 断 (保留 ) し た り で きる よう に な っ て いる . それ に は 


KEY 番号 ON = 許可 
KEY 番号 ОЕП =s 禁止 
KEY 番号 STOP --- 中 断 


と いう 文 を 用 いる . この 内 , 中 断 と いう の は , 「 割 り 込 み 要求 が あっ た 」 
と いう 情報 だ け を 記憶 し て , 本 来 の プロ グラ ム の 実行 を 続け , 割り 込み 
許可 の 下り 次 第 , 割り 込み 処理 プロ グラ ム に 切り 換え る , と いう 方 式 で 
ある . 

BASIC の 割り 込み 処理 は , この よう に , メイ ン ・ プ ログ ラム と 割り 込 
み 処 理 プ ログ ラム が 一 体 に な っ て いる (独立 し て いな い )。 いわ ば 「 自 分 
の こと は 自分 で せよ 」 と いう 方 式 で ある . こう いう 方 式 に は 不便 な 面 も 
ある が 単純 明快 で あり 融通 が きく . 
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D.3 "ファン クション ・ キ ー に よる 割り 込み 


キー ボー ド の 上 部 に 並ん で いる [1-5| の キー を ファ ンク ショ 
ン ・ キ ー と いう . これ は 普通 , 2 章 で 説明 し た よう に 簡便 操作 の 目的 に 
用 いら れ て いる が , 本 来 は 割り 込み 用 の スイ ッ チ で , これ ら の キー を 押 
すこ と に より ,。 あら か じ め 指 定 し て お いた 行 番号 に ジャ ンプ し 。 割り 込 
み 処 理 経 了 後 , 以前 の プロ グラ ム を 続行 きせ る こと が で きる . それ に は 
ON KEY GOSUB Fl の 人 行先, 『F2 の 行先 , … 
に より , 『F『 何 番 を 押し た ら ど こ に 飛ぶ か を 指定 し , 
KEY キー 番号 ON 
に より 割り 込み 許可 を 与え れ ば よい . жы, 割り 込み の 必要 が な く な っ 
た ら , た だ ち に 
KEY キー 番号 OFF 
に より 割り 込み 指定 を 解除 し て お か な いと いけ な い (そう し な いと 簡便 
操作 の 目的 に 使え な い ). 


1 INIT 

г CLS 4 

12 0М KEY GOSUB 8000 

28 KEY 1 ОМ 

3000 КЕМ --- ユー- サ ドー /2%п7%>4 / レイ --- 
3010 FOR J 了 =9 TO 195 STEP 5 

3929 FOR 1=1 TO 199 STEP 3 

3030 LINE <(J;,J>-<I, I), PSET, (I MOD 8›,В 
3040 NEXT I 

3050 NEXT J 

3060 END 

80800 REM --- F 1 ワリ コミ ショ リ --- 

8010 INIT 

8020 CLS 4 

8030 SCREEN 1,1 

8040 CLS 4 

8050 SCREEN 0,0,0 

8060 KEY 1 ON 

8070 RETURN 
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0.4 異常 事態 に よる 割り 込み 


異常 事態 (エラ ー, た と えば 0 に よる 割り 算 ,」 メモリー 不足 , 文法 違 
反 等 ) が 起こ る と , 普通 は エラ ー・ メ ッ セ ー ジ を 表示 し て 停止 する が , 
あら か じ め 

ON ERROR GOTO エラ ー 処 理 の 開始 番号 また は ラベ ル 
と いう 文 を 実行 し て お く Е, この 文 で 指定 され た 行 に 飛ん で ,。 エラ ー 処 
理 を 行なう こと が で きる .。 エラ ー 処 理 後 は 。 
RESUME МЕХТ 
と 書け ば 異常 事態 発生 箇所 の 次 の 文 か ら 実 行 を 再開 する こと が で き , 
RESUME 行 番号 
と 書け ば , そこ で 指定 し た 行 番号 か ら 実 行 を 再開 する こと が で きる (Ш 
通 の GOTO 文 で 帰る と ,「 エ ラー 処理 が 終っ た 」 と いう 報告 を し て いな 
いこ と に な り 。 その た め 。 再度 エラ ー が 起 っ た と き に 割り 込み せ ず に 停 
ШАҒЫН 7). 

エラ ー 処 理 プ ログ ラム の 中 で エラ ー の 発生 箇所 や エラ ー の 種類 を 知る 
こと が で きる よう に ERR お よび ERL と いう 特別 な 変数 が 用 意 さ れ て 
いて 。 

BRR に は エラ ー の 種類 を 表す 番号 (エラ ー・ コ ー ド ) 

名 RR 芽 に は エラ ー を 起こ し た 文 の 行 番号 
が 入る . エラ ー・ コ ー ド は 次 表 の と お り ( 各 メ ッ セ ー ジ の 詳し い 説 明 は 
付録 A. 4 参照 ) 
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wo No олы шо いも や н 


о М МЮ いう いう 19 мо о МЮ мон ーー ビビ ロビ ロビ ビレ ビ ロ ы 


D. 5 


NEXT without FOR 
syntax error 
RETURN without GOSUB 
out of data 

illegal function call 
overflow 

out of memory 
undefined label 
subscript out of range 
duplicate definiton 
division by zero 
illegal direct 

type mismatch 


string too long 

too complex 

can’t continue 
undefined user function 
no RESUME 

RESUME without error 
illegal format 

missing operand 

line buffer overflow 


bad screen mode 
UNTIL without REPEAT 
out of tape 


tape read error 

bad file mode 

out of stack 

WHILE without WEND 
WEND without WHLE 
reserved feature 

FOR withont NEXT 
format over 

REPEAT without UNTIL 


エラ テー* コー ド 表 
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FIELD overflow 
device in use 
bad file number 
file not found 
already open 


device І/О error 
file already exists 


device full 
input past end 


bad allocation table 
bad file descripter 
bad record 

no password 


file not open 
write protected 
device offline 
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E.1 Ж ы 


本 機 の テレ ビ 制 御 は 
| 内 蔵 の 予約 タイ マー・ シ ステ ム て 制御 する 
LBASIC の プロ グラ ム て で 制御 する 
の 二本立て に な っ て いる 。 
前 者 で 制御 で きる の は 
指定 され た 時 刻 に 電源 を 入れ る (また は 切る ) 
指定 きれ た チャ ン ネ ル に 切り 換え る 
гс; тж 
毎日 行なう 
毎週 指定 され た 曜日 に 行なう 
特定 の 指定 され た 日 に だ け 行 な う 


こと な ど が 可能 で ある .。 テレ ビ を 見 る だ け な ら ,。 これ だ け で きれ ば 十分 


で あろ う . 
一 方 。 BASIC で で きる こと は 。 
コン ピュ ー タ ー の 出力 を テレ ビ 映 像 に 重ね て 表示 する 


こと が 中 心 で 。 これ に 関連 し て 

電源 の ON, OFF チャ ン ネ ル の 切換 え 

音量 の 調節 コン ピュ ー タ ー で 表示 し た 内 容 の スク ロー ル 
な ど が 可能 で ある . 
[注意 ] 予約 タイ マー 使用 期間 中 は , 主 電源 スイ ッ チ (本 体 の 後 の ス イッ 
チ お よび ディ スプ レイ の ふた の 中 の スイ ッ チ ) を 切っ て は いけ な い (も 
ちろ ん コン セン ト を 抜い て も いけ な い ). 停電 が あっ た あと は , 予約 内 容 
を 再 設定 する 必要 が あ . る . 
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E.2 予約 タイ マー・ シ ステ ム の 使用 法 


これ は BASIC と 独立 に (BASIC を 知ら な く て も , BASIC を ロー ド し 
て な く て も ) 使用 で きる よう に な っ て お り , な か な か 使い 易く で き て い 
>. 使用 手順 は 次 の と お り . 

本 体 の 電源 を 入れ る と , 

Маке ready апу device 
Push (ғҒ,Н,С ог т) кеу 
Е: ЕІорру 
R : ROM 
C : CMT 
T:Timer 

と いう 表示 が 出る . 普通 は ここ で BASIC の シス テム ・ テ ー プ を 読み 込ま 
せる わけ で ある が , 予約 タイ マー 設定 の と き は Timer を 指定 する . < 
れ に は T〒 の キー を 押せ ば よい 。 そう する と 次 の よう な 画面 に な る 。 


ы 1 行 目 は タイ トル 

в" 2 行 目 は 今日 の 日 付 と 曜日 と 現在 時 刻 

в" 3 一 9 行 目 は も つの タイ マー の 設定 内 容 

= 点滅 し て いる の は カー ソル で , 上 下 左右 自由 に 動か し て よい 

10 行 目 は 現在 の カー ソル 位置 で 入力 で きる デー ター の 種類 と , 許 
され る 値 の 範囲 

= 11 行 目 は 特殊 キー の 説明 
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現在 の 日 付 と 曜日 と 時 刻 の 設定 方 法 本 機 を 購入 し て 最初 に 使う と 
き は 日 付 が 狂っ て いる . 主 電源 を 切っ て あっ て も 日 付 が 狂う . 正しい 日 
Ч, 曜日 , 時 刻 を 設定 する に は , カー ソル を 2 行 目 に も っ て いっ て , 
年 ノ 月 ノ 日 曜日 時 : 分 : 秒 
を キー ボー ド か ら 入 れ て , | : 中 | キー を 押せ ば よい . デー ター の 表し 方 は 画 
面 の 下 か ら 2 行 目 に 黄色 で 表示 され て いる . た と えば 。 カー ソル を 曜日 
の 所 に も っ て いく と ,。 下 か ら 2 行 目 に 
SUN МОМ TUE WED THU ЕНІ SAT or ХХХ 
と 表示 され る . この 中 か ら 今日 の 曜日 を 選ん で 入力 する . 
[注意 ] 年 , H, Н, 時 , 分 , 秒 は 必ず 2 桁 で ば 入れ る こと 。 た と えば 1 
月 な ら 01, また 。 0 分 な ら ば 00 と 入れ る . 
予約 タイ マー の 設定 方 法 予約 タイ マー は 七 つ あ っ て , その 設定 内 
容 が 画面 に 表示 され て いる . 最初 は 
ХХ/ҠХ XXX КЕ:ХЕ бек 
と な っ て いる . 各 欄 の 意味 は 
月 日 曜日 時 分 入 切 の 別 
с, 駐 駐 印 は 「 指 定 し な い 」 (指定 され て いな い ) と いう こと を 表す 。 ヵ カー 
ソル は 最初 左端 (月 の 位置 ) に ある . 何 月 何 日 と いう こと を 指定 し た 
けれ ば , ここ で 月 と 日 を 入れ る (1 桁 の 場合 は 頭 に 0 を 補っ て 2 桁 に し 
て 入れ る こと )。 指定 する 必要 が な けれ ば 。 カー ソル 移動 の キー|| を 押 
す と 次 の 項目 に 移る (次 の 桁 に 移る の で は な い . し た が っ て 。 た と えば 
0O2 を 05 に 変更 し た いと き に 「0 は 共通 だ か ら | 一 | キー で 1 字 進 め て 3 
だ け 入 れ よ う 」 な ど と いう こと は で き な い . ОМ, OFE の 指定 の 欄 に 来 
る と 。 下 か ら 2 行 目 に 黄色 い 文 字 で 
TV РОМЕН ОМ? (Ү or М) 
と いう 指示 が 出る か ら 
ON "に し た けれ ば Y 
OFF に し た けれ ば N 
の キー を 押す . ここ で Y を 押す と ,。 文字 ON の 右 に CH と 表示 され る か 
5, チャ ン ネ ル 番 号 を 入れ る (ここ は 1 桁 で も よい )。 
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1 行 分 。 出来 上 っ た ら | | キー を 押す と 。 内 蔵 タ イマ ー に 登録 され ,「 登 
録 さ きれ た 」 と いう 印 に 赤い * 印 が 表示 され る . この あたり の 要領 は , 
BASIC の プロ グラ ム を 入力 する と き の ス クリ ー ン ・ エ ディ ター と 同様 
T, カー ソル を 「 修 正 し た い 箇 所 」 に も っ て いっ て 新しい 値 を キー ボー 
ド か ら 入 れ 。 |:』| キ ー を 押せ ば よい 。 

(予約 指定 の 例 ) 
=" 4 月 5 日 12 時 55 分 に スイ ッ チ を 入れ 1 チャ ン ネ ル に する 
04/05 ХХХ 12:55 ON CH1 
= 毎週 日 曜日 の 13 時 35 分 か ら 14 時 25 分 まで 1 チャンネル を 見 る 
XX/XX SUN 15:55 ON CH1 
XX/XX SUN 14:25 ÖFF 

= 毎日 ,12 時 か ら 12 時 50 分 まで 8 チャ ン ネ ル を 見 る 

хх/хх ххх 12:00 Ом CH8 
XX ノ XX ХХХ 12:50 OFF 

予約 の 取り 消し 解除 し た い 場 合 は カー ソル を 該当 する 行 に 合わ せ 
て |SH エ TFT キー を 押し な が ら |OLR ノ HOME| キ ー を 押す .。 

BASIC に も どる 方 法 予約 タイ マー の 設定 が 終っ た ら [ 刀 SO| (= 
スケ ー プ ) キー を 押す と , も と の 画面 

Make ready any device 

Push (Е,Н,С or Т) Кеў 
に も どる か ら ,。 カセ ッ ト ・ テ ー プ を 入れ て 〇 を 押せ ば 。 以後 , 普通 の パ 
ソコ ン と し て 使え る .「 テ レビ ON」 の 時 刻 に な る と , 画面 が 自動 的 に テ 
レビ の 方 に 切り 換わる . 

BASIC の 途中 で 予約 タイ マー の 設定 を 行なう 方 法 この た め に A 
SK と いう コマ ンド が ある . 使用 法 は , (WIDTH 80 で 使っ て いる 場 
合 は まず WIDTTH 40[ と し て か ら ) 

АЗК [| 
と すれ ば よく , これ で ТУ Timer control の 画面 に な る . 
設定 を 終っ て | 互 SC| キ ー を 押す と , BASIC の コマ ンド を 受け 付け られ 
る モー ド に も どり , Ok が 表示 され る . 
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ЕЗ BASIC て 制御 する 方 法 


電源 の ОМ, OFF 
ТУРМ ОМ ディ スプ レイ 装置 の 電源 を 入れ る 
TVPW OFF ディ スプ レイ 装置 の 電源 を 切る 
テレ ビ と コン ピュ ー タ ー 出 力 の 切換 え 
CRT テレ ビ 映 像 を 表示 
CRT コン ピュ ー タ ー 出 力 を 表示 
CRT 重ね て 表示 (テレ ビ の コン トラ スト を 下げ る ) 
CRT 重ね て 表示 (同じ コン トラ スト で 表示 ) 
チャ ン ネ ル の 指定 
CHANNEL チャ ン ネ ル 番 号 
音量 を 変え る (瞬時 に は 変ら な いで ちょ っ と 時 間 が か か る ) 
VOL 変化 量 
変化 量 と し て は 一 62 以 上 , 63 以 下 の 値 を 指定 で き , 正 な ら 音 が 大 きく 
な り , 負 な ら 音 は 小さ く な る 。 
コン ピュ ー タ ー 出 力 を スク ロー ル 表 示 (画面 の 外 に 出 た 行 は , 反対 
側 の 端 か ら ま た 入っ て き て , ぐる ぐる まわ る ) 
SCROLL 5 上 へ 速く スク ロー ル 
SCROLL 2 上 へ スク ロー ル 
SCROLL 1 上 へ ゆっ くり スク ロー ル 
SCROLL スク ロー ル 停 止 * 
SOROTLT. 一 ユ 下 べ ゆっ くり スク ロー ル 
SCROLL 一 る 下 へ スク ロー ル 
SCROLL 一 3 下 へ 速く スク ロー ル 
た だ し テレ ビ と コン ピュ ー タ ー の 重複 表示 の と きのみ 有効 


ж スク ロー ル 中 に キー ボー ド か ら こ れ を 入力 する こと は で き な い の で , F 
動 で 停止 させ た いと き は | ӨНІЕТ | + | BREAK | を 用 いる . 
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[簡単 な 使用 例 ] 
1) チャ ン ネ ル ・ レ ビュ ー テレ ビ の チャ ン ネ ル を 
їз» Sy 4: 6; В 10。 12 
の 順に 切り 換え て 2 秒間 ずつ 表示 する プロ グラ ム を 作っ て みよ う . 


10000 REM --- チャ ン ネ ル マフ ワシ ーーー 
10010 LABEL "ССС" 

10020 СЕТ 2 

18030 рата 1,3, 4, 6,8, 10, 12 
100408 RESTORE 

10050 FOR Ісі TO 7 


108060 READ С 
10078 CHANNEL С 
10080 PAUSE 20 


10090 NEXT І 
10100 CRT 1 
19119 RETURN 


行 番号 を 10000 か ら に し た の は , これ を 常時 入れ て お いて , 気 が 向 いた と 
ас 
GOSUB 10000 
と し て チャ ン ネ ル を まわ し て みる た めで ある .。 ひん ば ん に 使う の な ら 
KEY 5, "GOSUB10000"「 十 CHR$(13) 
と いう ぐあい に ファ ンク ショ ン ・ キ ー に 登録 し て お く と よい (こう し て 
お け ば [3| キ ー を 押す だ け で 全 チ ャ ン ネ ル が 見 られ る . 
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2 ) 音量 テス ト 音量 を 。 - だ ん だ ん 大 きく ぐし て いっ て 最大 に し て 。 
それ か ら だ ん だ ん と 小さ くし て いっ て 最小 に する プロ グラ ム の 例 を 示す . 


10 REM --- volume сопігоі --- 
28 КЕМ イチ ロン チイ サク スル 

39 VOL -62 

40 PAUSE 30 

50 CRT 2 


60 REM オオ キク スル 
70 FOR Ізі ТО 62 


89 VOL 1 
90 GOSUB 180 
100 МЕХТ І 


110 КЕМ チイ サウ スル 

120 FOR I=62 TO 1 STEP -1 
139 VOL = 

149 GOSUB 180 

159 NEXT 1 

160 СЕТ 1 

170 ЕМО 

180 КЕМ し へ "ルル э ヒョウ シド 

190 CLS 
299 С512Е 
210 COLOR 
22@ PRINT 
239 PAUSE 
240 RETURN 


ご "OO 
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本 機 で は , テー プ ・ レ コー ダー の 操作 を すべ て 自動 に (プロ グラ ム 制 
ЖШС) 行なう こと が で きる 。. 


カセ ッ ト ・ テ ー プ 装置 の ふた を あけ 
る 


STOP 走行 停止 CSTOP 
READ 録 音 * CMT ニ る * 
FF 早送り FAST 
REW 巻 戻 し REW 
APSS 前 方 ヵ 箇 (一 を 付け れ ば 後方 ヵ 箇 ) の | APSS n 


ファ イル ** を スキ ッ プ し て 自動 頭 出 
し を 行なう 
н 生 * 


( 例 ) APSS 5 プロ グラ ム 3 本 を 読み と ば す 
APSS -1 いま 入力 (また は 出力 ) し た ファ イル の 先頭 まで 
巻き 戻す . 


ж コン ピュ ー タ ー へ の 読み 込み や コン ピュ ー タ ー か ら の 書き 込み は INP 
UT# 文 , PRINT# 文 で 行なう が , 普通 の テー プ ・ レ コー ダー と し て 使う 場 
合 に は , この CMT 文 に よっ て 指令 する . 

жж プロ グラ ム は 1 本 が 一 つの ファ イル に な る .。 デー ター は OPEN し て 
か ら OLO8 包 する まで が 一 つの ファ イル に な る . 
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[APSS の 使用 例 ] 
10 ОРЕМ "О", #1, "DATA1" 
20 FOR K=1 TO 5 
39 PRINT #1,К 
48 NEXT К 
50 CLOSE #1 
68 OPEN "О",#1, "DATA2" 


70 FOR K=1 TO 5 

89 PR INT #1,К+5 

98 МЕХТ К 

100 CLOSE #1 

110 АР55 -1 

120 ОРЕМ "І", #1, "рАатаг" 
130 INPUT #1, а, BC DE 


149 CLOSE #1 
150 PRINT A;B;C;D;E 


[実行 結果 ] 

4 778 ә Тө 

カセ ッ ト ・ テ ー プ の 状態 を 調べ る 方 法 CMT と いう 関数 を 用 いて 
次 の よう な 情報 を 得る こと が で きる 。. 


意 味 


テー プ が 動い て いる 

テー デジ が 止ま っ て いる 

テー プ が 入っ て いる 

テー プ が 入っ て いな い 

書き 込み 禁止 の つめ を 折っ て いな い 
書き 込み 禁止 の つめ を 折っ て ある 


[解説 ] 先 に 4.19 節 で 説明 し た よう に , 論理 変数 と し て 使う と 
ー1 は 真 (条件 成立 ) O は 偽 (条件 不成立 ) 

を 表す の で , た と えば 
ТЕ CMT(1) THEN ELSE 

と いう よう な 使用 法 も で きる . 


付録 G グラ フィ ッ ク RAM を メモ リー に 
転用 する 方 法 


本 機 に は 48K バイ ト の グラ フィ ッ ク RAM が 付い て いる (オプ ショ 
ン と いう こと に な っ て いる が 。 本 機 を グラ フィ ッ ク な し で 使う 人 は 少な 
いで あろ う ). 48 K バイ ト い えば , か な り の 容量 で ある . 単 精度 実数 型 の 
デー ター な ら 9600 箇 も 収容 で きる し , プロ グラ ム な ら (1 行 の 平均 字数 
に も よる が ) 2000 行 ぐら い は 入る は ず で ある . グラ フィ ッ ク 表 示 の 必要 
の な いと き , これ を 普通 の メモ リー と し て デー ター や プロ グラ ム の 記憶 
に 使う こと が で きれ ば 便利 で あろ う . 本 機 の 場合 メイ ン ・ メ モリ ー の ユー 
ザー 領域 が 約 23 KK バイ ト で ある か ら , これ に 48 人 K バ イト も プラ ス で き 
た ら 約 3 倍 の 広 き に な る わけ で ある . 他 機 種 ご では, た いて い ,。 そん な こ 
と は で き な い .「 グ ラフ ィ ッ ク КАМ を 転用 で きた らい いね え 」 と 私 達 は 
よく 話し 合っ て いた が , 夢 で あっ た . その 夢 が 本 機 で よう や く 実 現 きれ 
だ た 。 非 常に 喜ば し いこ と で ある 。. 

た だ し , 普通 の メモ リー と 全く 同じ に 使用 で きる わけ で は な い . 高速 
の 外部 記憶 装置 と し て 使う の で ある . MZ-80B/C/K 用 に 1/O デー ター 
機器 か ら 「 大 容量 RAM」 と いう の が 発売 され て いる が ,。 あれ と 同じ よう 
な 感じ で 使う の で ある . EAE, 詳し く は 次 ペー ジ で 説明 する が , カ 
セッ ト ・ テ ー プ や ディ スク と だ いたい 同じ で 

SAV 選 文 で プロ グラ ム を セー プ ブ す る 
LOAD 文 で プロ グラ ム を ロー ド す る 
PRTNT# 文 で デー ター を 書き 込む 
INPUT# 文 で デー ター を 読み 込む 
な ど が 可能 で ある . ディ スク と 比較 する と 容量 は 小さ い が , 一 時 的 な 記 
憶 場 所 と し て 使う の で あれ ば , この 程度 で も か な り 役 に 立つ . また , 2 
セッ ト ・ テ ー プ より も 断然 速く て 便利 で ある . 
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転用 宣言 グラ フィ ッ ク RAM を メモ リー に 転用 する に は 
OPTTION SCREEN 2 
と 宣言 (命令 ) すれ ば よい .。 іс, 再び グラ フィ ッ ク КАМ と し て 使 
用 する 場合 に は 
OPTTON SCREEN 1 
ET Da 
初期 化 Яс, ファ イル 管理 プロ グラ ム の 初期 化 (状態 を 白紙 に 
も どす こと ) を 行なう 必要 が ある . それ に は 
INIT "MEM:" 
と 命令 すれ ば よい . 
プロ グラ ム の ロー ド , セー プ ブ 
プロ グラ ム の ロー ド は LOAD "МЕМ: ファ イル 名 『! 
プロ グラ ム の セー プ は SAVE "МЕМ: ファ イル 名 " 
デー ター の 入出 力 デー ター の 入出 力 を 行なう に は 。 まず 
入力 は OPEN "TV。# 番 号 "МЕМ: ファ イル 名 『 
出力 は OPEN "OO" 。# 番 号 "МЕМ: ファ イル 名 『 
で オー プン し て お いて , PRTRN# 文 , TNPUT# 文 で 記録 , 再生 を 行 
な い , 最後 に CLOSE 文 で ファ イル を 閉じ れ ば よい . 
WRITE# LPRTNT キ TNPUT$ 
DEVT$ DEVO$ 
FILES LFILES 
な ども 使用 で きる . 


付録 H 乱数 RND と その 応用 


関数 RND は 0 か ら 1 まで の 間 の 一 様 分 布 の 乱数 を 発生 する . 引数 は 
書か な いで よく 。 単に RND と 書け ば よい 。 
実際 に どん な 数 が 出 て くる か 実行 し て 調べ て みよ う . 


19 FOR Ізі TO 19 [実行 例 ] .77344871 

20 U=RND . 3838042 

39 LPRINT U . 76547372 

40 NEXT I . 64453149 

50 END . 96692097 
. 245900155 
. 82409966 
. 43847716 
4.5308994Е-02 
.21497321 


用 途 に よっ て は , [0,11 以外 の 区 間 の 一 様 乱数 が 必要 と な る こと が 
ある . それ に は 変数 変換 すれ ば よい 。 た と えば , 0 か ら 99 ま で の 整数 の 


乱数 を 作り た けれ ば , 
ІМТ (ЕМрж100) 


と すれ ば よい . 
19 FOR I=1 TO 10 
29 U=INT(RNDX199) 
39 LPRINT Ui 
40 NEXT І 
50 ІРБІМТ 
[実行 例 ] 
50 55 2 る 1 84 19 44 4 75 78 
また , 6 倍 し て 整数 部 を と れ ば 。 サイ コロ の 代用 品 と し て 使え る . 


18 FOR Ізі ТО 10 [実行 例 ] 

29 U= INT CRND※ る ) +1 

39 LPRINT U; П с в ә жаман 
40 МЕХТ І 


59 LPRINT 
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こう し て 作ら れる 乱数 は 本 当 に 「 一 様 」 に な っ て いる の で あろ うか ? 


出現 頻度 を 調べ て みよ う . 
18 DIM К<) 
20 FOR 1=1 TO 100 
30 U=INT (RNDXó) +1 
48 K (U) =K (U) +1 
50 NEXT I 
60 FOR J=1 TO 6 
70 LPRINT J;K<(J) STRINGS (K (J), "#") 
80 NEXT J 


ольш ~ 
— m 
ひひ 


一 様 分 布 に 従う 確率 変数 の 和 の 分 布 は , 理論 的 に 求め られ る が , それ 
を 実験 で た めし て みる の も 面白 い . 以下 に 示す の は , その プロ グラ ム 例 
と 実行 例 で ある . 


18 DIM K(12) 
20 FOR I=1 TO 100 


30 U1=INTCRND※ る )+1 
49 U2=INT (RNDXéS) +1 
58 R =U 1 +02 

る 9 KCR) =K (R) +1 

70 NEXT I 


80 FOR J=1 TO 12 
ヶ 9 LPRINT Ј, КСЈ), STRING$ (K (J), "W") 


100 NEXT J 

1 9 

2 3 теш 

3 8 Бы с 

4 11 а 

5 8 иан 

6 15 Босс сс сс А 

7 17 22-222 572424 
8 19 Б л A 
9 11 ЗОНЕ, 

19 7 paoa 3 

11 8 

12 1 8 
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正規 分 布 に 従う 乱数 が 必要 に な る こと も ある .。 それ に は 各種 の 方 法 が 
ある が , 本 機 の 場合 , sinx や cosx は 割合 に 時 間 が か か り , それ に 対し 
て ERND は 割合 に 速い の で [ 0 , 1 ] 上 の 一 様 乱数 を 12 箇 加え て 6 を 引け 
5, ほぼ が (0, 1 ) に 従う 乱数 が 得 ら れる 」 と いう 性 質 を 用 いる と よい .。 
以下 に 示す の は , それ を さら に 変換 し て , 与え られ た 平均 値 z と 標準 偏 
жс の 正規 乱数 を 作る よう に し た プロ グラ ム の 一 例 で ある . 

19 INPUT "ти="; МО 

20 INPUT "siGma= "3S1GNM 

ЗӨ FOR Ісі TO 10 


49 GOSUB "NORMAL" 
50 LPRINT X 


60 NEXT I 

70 END 

80 REM --- NORMAL -== 
90 LABEL "NORMAL" 

100 =9 


110 FOR 11=1 TO 12 
120 W=W+RND 

130 NEXT II 

140 X=MU+SIGMAX (W-6) 
150 RETURN 


[mu =70, sigma =10 と し て 実行 し た 結果 ] 


61. 0226?1 
る る. 236508 
53. 434823 
67. 175734 
73.412837 
52. 094445 
72.576536 
6? . 35057? 
83.510256 
82.491016 


シミ ュ レ ーション で 指数 乱数 が 必要 に な る こと も ある . これ は 簡単 で 
RND の 一 上 LOG で を と っ て パラ メー ター ん を 掛け れ ば よい . 
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19 DIM K〈29> 
20 INPUT "mu="; MU 
30 FOR 1=1 TO 100 


48 メ =ーLUG (RND) жм) 
59 ゴ = INT (2xX) 
る 9 IF 7421 THEN К<Ј> =К‹Ј) +1 
70 NEXT I 
80 FOR J=1 TO 20 
?й LPR INT J/2」K(J)』 STRINGS (K (J), "ЖО 
100 NEXT J 
[mu =2 と し て 実行 し た 例 ] 
.5 21 Б... . 
1 18 Б. 
1.5 9 кашанын 
2 6 жашара 
2.5 4 нив 
3 1 8 
3.5 5 B 
4 2 ss 
4.5 5 に 
5 1 x 
5.5 3 ше 
6 1 ж 
4.5 9 
д 9 
7.5 1 Ж 
8 9 
8.5 8 
9 8 
9.5 е 
10 е 


RANDOMIZE 文 機種 に よっ て は , 使用 する 度 に 毎回 同じ 乱数 列 
が 出 て 困る こと が ある . そう いう 場合 に , 強制 的 に 乱数 列 を 変更 させ る 
目的 で RANDOMT 紀 包 文 と いう の が ある . 

本 機 の 場合 は ,。 シス テム が 出発 値 を 毎回 変え て くれ る らし く 。 い つも 
違っ た 乱数 が 出 て くる . 普通 は その 方 が よい の で ある が 。 場合 に よっ て 
は 「 前 と 同じ 乱数 列 で も う 一 回 や っ て みた い 」 と いう こと が ある . そう 
いう 場合, 最初 に 

RANDOMIZE 出発 値 

と 書い て お け ば , 指定 され た 出発 値 を 使っ て くれ る . 出発 値 は ー32768 以 

上 , 65535 以 下 で な けれ ば いけ な い . 
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1. 1 命令 お よび コマ ンド 


BEEP プ ブザー を 鳴ら す 

ВЕЕР 約 1/3 秒 間 プ ザー を 鳴ら す 

BEEP 1 ブザー 開始 

BEEP О プ ブザー 停止 
BOOT IPL (initial program Loader) を 呼び 出す . (本 書 の 範囲 外 ) 
CALL 機械 語 プ ログ ラム の 呼び 出し (本 書 の 範囲 外 ) 
CHAIN 続き の プロ グラ ム を ディ スク か ら ロ ー ド し て 実行 

これ は チェ イン ・ ジ ョ ブ と いっ て 。 長い プロ グラ ム を 一 部 分 ずつ メモ 

リー に 読み 込ん で 実行 する た め の 命 令 で ある 。 単に 「 次 の プロ グラ ム を 
ロー ド し て , すぐ 実行 せよ 」 と いう の で あれ ば 

LOAD "装置 名 : ファ イル 名 "RR 
ある い は 

RUN "装置 名 : ファ イル 名 『 
と いう 書き 方 も で きる が , OHATN を 使え ば デー ター の 全部 また は 一 
部 を 次 の プロ グラ ム に 渡す こと が で きる , と いう 利点 が ある . 書き 方 は 

CHAIN "装置 名 : ファ イル 名 『" 
CLEAR 変数 を すべ て クリ ア す る (CLR と 同じ ) 
CLEAR アド レス BASIC が 使用 する メモ リー 領域 を 制限 し て 機 
械 語 の プロ グラ ム の 記憶 場所 を 確保 する (本 書 の 範囲 外 ) 
CLR (CLEAR と 同じ ) 
CURSOR 左 か ら 何 字 目 , 右 か ら 何 字 目 (І. ОСАТЕ } [5] 2) 
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DEF CHR$ ユー ザー が 自分 用 の フォ ント (字母 ) を 定義 
DEF OHR$( 文字 コー ド ) 王 文字 列 型 変数 名 
の 形 で 書く . フォ ント は , あら か じ め 。 次 の 要領 で 作っ て 文字 列 型 変数 
に 入れ て お く . 
=" フォ ント は 8X8 ド ッ ト 
a 文字 列 の 第 1 字 が 最上 列 の ドッ ト ・ パ ター ン 
第 2 字 が 次 の 列 の ドッ ト ・ パ ター ン | 点 の ある 所 が 1 
点 の な い 所 が 0 
第 8 字 が 最 下 列 の ドッ ト ・ パ ター ン 

a Coll, 上 記 が 「 青 の ドッ ト ・ バ ターン 」 T, それ に 続く 8 字 が 
「 赤 の ドッ ト ・ パ ター ン 」, その 次 の 8 字 が 「 緑 の ドッ ト ・ パ ター ン 」 で 
ある (合計 24 字 必要 ). 

DEF KEY (KEY と 同じ ) 
DEFUSR 機械 語 で 書い た 関数 の 開始 番地 を 指定 (本書 の 範囲 外 ) 
ERROR エラ ー・ フ ラッ グ を 立て る 。 

ON ERROR GOTO ~ を 用 いる プロ グラ ム を デバ パッ ク す る 
と き , 実際 に エラ ー 起 こす の は 大 変 だ か ら , この ERROR 文 に よっ て 。 
指定 され た 番号 の エラ ー が 起き た の と 同じ 状態 に する . 火災 訓練 の と き 
の 発煙 筒 み た いな 命令 で ある . 書き 方 は 

EERROR エラ ー・ コ ー ド 
FILES "ファ イル 一 覧 表 を 表示 する 

これ は も と も と ディ スク BASIC の コマ ンド で , フ ロッ ピー・ デ ィ ス ク 
に 記録 きれ て いる ファ イル の 名 前 の 一 覧 者 リス ト ・ ア ッ プ する 機能 を も 
つが , 本 機 の 場合 , カ セッ ト ・ テ ー プ に 使う こと も で きる . 

カセ ッ ト ・ テ ー プ を マウ ント し , 巻き 戻し 。 PILES| 7] と 指令 する 
к, テー プ を 読み , 内 容 (プロ グラ ム や デー ター) は 早送り で 読み と ば 
し な が ら フ ァイル 名 だ け を 読み 込ん で 表示 し て くれ る . な お , 付帯 情報 
YET 


236 付録 1 その 他 の 命令 ,、 コマンド, 関数 
ASCII セー プ さ れ て いる か 否 か 
書き 込ん だ 日 付 と 時 刻 
も 表示 し て くれ る 。. 
KEY ファ ンク ショ ン ・ キ ー の 内 容 変更 
KEY #5, "文字 列 " 
文字 列 の 長 さ は 15 字 まで OK. 
( 例 ) 「 プ リン ター を 3 行 分 改行 」 を [ 也 3] に セッ ト す る に は 
KEY 3,"LP.:LP.:LP."+CHR$(13) 
と すれ ば よい 、。 
KEY LIST ファ ンク ショ ン ・ キ ー の 内 容 一 覧 表 を 表示 
本 機 の 場合 . その 表示 が 表 包 Y 文 の 形 の と お り に な っ て いる の で , 小 
さき な 変 更 だ け な ら , カー ソル を 修正 箇所 に も っ て いっ て な お し 。|39 引 を 
押せ ば よい . 
KILL ファ イル の 抹消 
KILL "装置 名 : ファ イル 名 " 
カセ ッ ト ・ テ ー プ に 対し て は 無効 で ある . 
KLIST (KEY LIST に 同じ ) 
LFILES ファ イル の 一 覧 表 を プリ ンタ ー に 出力 . 
機能 に つい て は FILES の 項 を 参照 の こと (カセ ッ ト ・ テ ー プ に も 使 
2:22); 
LINPUT (LINE INPUT に 同じ ) 
LOADM 機械 語 プ ログ ラム の ロー ド (本 書 の 範囲 外 ) 
LOAD? カセ ッ ト ・ テ ー プ に 正しく セー ブ さ れ た か 否 か を 検査 する 
プロ グラ ム を セー プ ブ し た 後 , 
APSS -і 
で 。 今 記録 し た 先頭 位置 に も ち ど し て 。 
LOAD? 
と すれ ば よい . 誤り の 箇所 が あれ ば 
Tape read error 
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と 表示 され る . 

MEM$ メイ ン ・ メ モリ ー の 指定 され た 番地 に 文字 列 を 書き 込む . 
MEM$ ( 先頭 番地 , 字数 ) 三文 字 列 型 変 数 名 また は 式 

MERGE ゲロ グラ ム を 読み 込み 。 既 に メモ リー に 入っ て いる プロ グ 

ラム に 追加 する 。 

LOAD コ マン ド て で 読み 込む と 以前 の プロ グラ ム が 消え て し まう が , 
MERGE で 読み 込め ば 以前 の プロ グラ ム は 消え な いで , 新しい プロ グラ 
ム が 付け 加わ る 形 に な る . た だ し 行 番号 が 重複 し た 場合 は ,、 あと か ら 入 
力 し た 方 が 優先 され る . 書き 方 は 

MERGE "装置 名 : ファ イル 名 『 
な お , あと か ら 読 み 込む プロ グラ ム は ASCI セー プ し た も の (SAVE コ 
マン ド の 最後 に , A を 付け て セー プ し た も の ) で な けれ ば ぼ ば いけない. 
MON 機械 語 モ ニタ ー を 起動 (本 書 の 範囲 外 ) 
NEW ON 機械 語 の ブログ ラム 等 で 使用 する た め 。 BASIC の 使用 領 
域 を 制限 する . 

CLEAR 文 は BASIC で 使用 する 領域 の 上 限 を 指定 する が , МЕМО 

N 文 は 下限 (先頭 番地 ) を 指定 する . 
МЕМ Ом 番地 

OPTION BASE 配列 の 添字 の 下限 を O に する か 1 に する か を 指定 
OPTTON BASE 0O ま た は 1 

[備考 ] 1) 指定 し な けれ ば 下限 は O に な る . 

2 ) 最初 の DIM 文 より 前 に 置く こと 

3) た っ た 1 人 箇 の 違い だ か ら , 1 に し て も メモ リー の 節約 に は ほとん 
ど 効 果 は な い . し か し , 添字 0 を 使わ な い 場 合 . 下限 を 1 と 宣言 し て お 
く Е, 何 か の まち が いで 添字 が O に な っ た と き に エラ ー・ メ ッ セ ー ジ が 
出る か ら , デバ ッ グ の 際 に は 役に立つ . 
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OUT 1/O ポー ト に 出力 (本 書 の 範囲 外 ) 
бот ポー ト 番 号 , 出力 すべ き 値 * 
POKE 指定 し た 番地 へ の 書き 込み 
РОКЕ 番地 , 書 き 込む べき 値 * 
と いう の が 標準 的 な 書き 方 で , ОВЕ, -ЭОРОКЕУСІ 1 バイ トレ し 
か 書き 込め な い が 。 本 機 で は 
РОКЕ 先頭 番地 , 先頭 の 値 * , 次 の 値 * 。 … , 最後 の 値 * 
と いう 形 で 。 い くつ も の デー ター を 連続 し た 番地 に 書き 込む こと が で き 
る (お か げ て 非常 に 使い 易く な っ た ). な お , 命令 MEIM$ 同様 な 目的 に 
使用 する こと が で きる . 
POKE @ VRAM 上 の , 指定 し た 番地 に 書き 込む 
POKE@ 先頭 番地 , 値 * 
VRAM と いう の は ビデ オォ КАМ の 略称 で , 画面 に 表示 する 文字 や 図形 
を 記憶 し て いる メモ リー で 。 メモ リー・ マ ッ プ は 概略 。 次 の よう に な っ 
て いる . 


番地 (16 進 法 ) 使用 目的 
2000-- 文字 表示 の 属性 ( 色 その 他 ) 
3000 一 文字 表示 の 文字 コー ド 


42000--?ЕЕЕ グラ フィ ッ ク 表 示 の 青 の ド ッ ト 
8000--ВЕЕЕ グラ フィ ッ ク 表 示 の 赤 の ドッ ト 
С000б--ғғЕЕ グラ フィ ッ ク 表 示 の 緑 の ド ッ ト 


[簡単 な 使用 例 ] 実用 的 に は 全く 意味 の な い プ ログ ラム で ある が ,。 と 
て も きれ い だ か ら , 一 度 実行 し て みる と よい . (挿絵 参照 ) 


10 FOR 1=&H2999 ТО &H2499 

15 K=I MOD 256 

20 РОКЕӘ I,K 

30 L=PEEKƏ (I) 

40 IF K=L THEN PRINT НЕХФ СІ) 
50 NEXT I 


ж 8 ビッ ト , すなわち 0 一 255 の 整数 値 に 限る . 
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SAVEM 機械 語 プ ログ ラム の セー ブフ (本 書 の 範囲 外 ) 
VERIFY (LOAD? に 同じ ) 

WAIT 入力 ポート が 指定 きれ た 状態 に な る まで 待つ (本 書 の 範囲 外 ) 
WRITE # テー プ や ディ スク に 書き 込む 

PRINT# 文 を 用 いる と , 余分 な 空白 が 入る こと が 多く , し か も 項目 
間 の 区 切り が 明確 で な い の で , 再 入 力 で きる よう に する た め に は 文字 定 
数 の 形 で 項目 間 の コン マ や 文字 列 を 囲む 引用 符 を 補 な う 必 要 が ある が , 
WRITTE# 文 だ と それ を 自動 的 に や っ て くれ る . すなわち , 

余分 な 空白 は すべ て 省く 
項目 の 間 に は コン マ が 挿入 され る 
文字 列 の 前 後に は 2 重 引用 符 が 付く 
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2 М 数 


CDBL (数 値 ) 倍 精 度 実数 型 に 変換 

CHARACTERS$ ( 左 か ら 何 字 目 . 上 か ら 何 字 目 ) 指定 され た 位置 に 
表示 され て いる 文字 

CINT (数 値 ) 整数 型 に 変換 

СМС (数 値 ) 実数 型 に 変換 

CSRLIN 現在 カー ソル が 画面 の 何 行 目 に ある か を 調べ る 。 

EOF (ファ イル 番号 ) ファ イル の 終端 で 真 。 他 で は 偽 と な る . 

FRE (ダミ ー 変 数 ) ユー ザー 領域 の 残り ( 未 使用 ) バイ ト 数 


INP (ボー ト 番 号 ) ПО ポー ト か ら の 1 バイ ト を 読み 込む . 
KANJI$ (漢字 コー ド ) 漢字 の ドッ ト ・ パ バターン (16х16К v h. W 
字 КОМ 必要 ). 

POSTTTORN 文 で 表示 位置 を 指定 


K$=KANJI$ (漢字 コー ド ) で 漢字 КОМ か ら 読 み 出す 
PATTERN 16,K$ で 表示 
と すれ ば 漢字 を 表示 で きる . 
LPOS (ダミ ー 変 数 ) 現在 プリ ンタ ー の 左 か ら 何 字 目 まで 打っ た か 
(正確 に いえ ば , プリ ンタ ー に 出力 する た め の バ ッ フ ァ ー の 何 字 目 ま で 書 
き 込 まれ て いる か ) を 表す . 
(使用 例 ) 単語 を 一 つ ず つ 読 み 込み . その 字数 を 調べ , 行 の 右 に その 単 
語 を 印字 で きる 余白 が あれ ば プリ ント し ,。 余白 が な けれ ば 改行 し て か ら 
プリ ント する 。 


10 КЕМ === し PDS/ ЮЧ == 

20 LINE INPUT АФ 

30 IF A$="x" GOTO 100 

40 IF A$="" THEN LPRINT 

50 N=LEN (A$) 

る 9 IF LPOS<1)+N>3? THEN LPRINT 
70 LPRINT A$; 

80 IF (Р0О5<12<40 THEN LPRINT " "; 
?0 GOTO 20 

100 LPRINT 

118 END 
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МЕМ (先頭 番地 , 字数 ) 指定 され た 番地 か ら 始 まる , 指定 され た 字 
数 の 文字 列 を 取り 出す 
PEEK (番地 ) その 番地 の メモ リー の 内 容 (整数 値 と みな す ) 
PEEK @ (番地 ) その 番地 の VRAM の 内 容 

| 属性 デー ター は &H2000~&H27FF 
文字 表示 用 の | 
文字 デー ター は &H3000~&H37FF 
が 割当 て られ て いる . 
(使用 例 ) 文字 表示 の 画面 コピ ー・ プ ログ ラム を 作っ て みよ う . 本 機 の 
HOCOPY コ マン ド は ユー ザー が 作っ た フォ ント を コピ ー で きる よう に 
な っ て いる た め 。 文字 が 大 きく , 行間 が 詰まっ て し まう 。 標準 の フォ ン 
ト だ け で よけれ ば ,。 下記 の よう な 簡単 な プロ グラ ム で 画面 コピ ー で きる 
(ここ に 示す の は 80 字 / 行 の た め の プ ログ ラム で ある 。. 40 字 ノンノ 行 の 場合 は 
行 20 と 行 40 の コン スタ ント を 変更 すれ ば よい ). 

10 FOR І-й TO 24 

20 FOR J=9 ТО 79 

30  K=&H3000+80xI+J 

408 С=РЕЕКӘ (K) 

45 IF C<32 THEN LPRINT " "; ELSE LPRINT СНЕФ ‹С) ; 

50 NEXT J 

60 LPRINT 

70 NEXT I 

80 END 
POINT ( 横 座標 , 縦 座標 ) グラ フィ ッ ク 画 面 座標 で 指定 され た 点 の 
色 番 号 (正確 に いえ ば パレ ッ ト 番 号 ) 

POS (0) カー ソル の 現在 の 水平 位置 (左端 が 0 ) 

SCRN$ ( 行 番号 , 桁 番号 , 字数 ) 画面 上 の , 指定 位置 に 表示 され て い 
る 文字 (ある い は 指定 位置 か ら 始ま る 文字 列 ) 

SPACE$ (人 箇 数 ) 指定 筒 数 の 空白 を 表す 。 

STRPTR 文字 7 ター を 格納 する 領域 の 先頭 番地 

USR ルー チン 番号 (引数 ) ュー ザー が 機械 語 で 書い た 関数 の 呼び 出 
| 


242 FRI その 他 の 命令 , コ マンド, 関数 
VARPTR (変数 名 ) 変数 に 対応 する メモ リー (格納 場所 ) の 番地 ( 先 
頭 ア ドレ ス ) 

た だ し 文字 列 型 変数 の 場合 に は , VARPTR の 値 に STRPTR の 値 を 
加え た も の が アド レス に な る . 


付録 」 他 機 種 の BASIC と の 主 な 相違 点 


実数 型 が 5 バイト 他 の 大 部 分 の 機種 で は 単 精度 実数 型 の デー ター 
1 筒 を 4 バイ ト (32 ビ ッ ト ) で 表し て いる が , 本 機 で は 5 バイ ト (40 ビ ッ 
ト ) で 表し て いる 。 わずか 1 バイ ト の 違い , と 思わ れる か も し れ な い が , 
じつは 大 変 な 違い で , 4 バイ ト だ と 仮数 部 (有効 数 字 ) の 桁 数 が 24 ビ ッ 
ト し か な い の て 演算 精度 は 約 7 桁 す な わ ち 電卓 以下 で あり , か な り 注 意 
深く 計算 を 進め な いと 丸め 誤差 の た め に 思わ ぬ 失 敗 を する こと が ある が , 
5 バイ ト だ と 演算 精度 は 9 桁 に な り 。 トラ ブル は か な り 少 な く な る 。 そ 
の か わり 記憶 場所 を と る . また , 数 値 計算 以外 の 目的 (た と えば 図形 表 
示 の ビッ ト ・ パ ター ン の 記憶 な ど ) に 使う と き は , 1 デー ター あたり の 
ビッ ト 数 が 他 機 種 と 違う か ら 。 既存 プロ グラ ム の コン バー ジョ ン の 際 に 
注意 が 必要 で ある . 

行 番号 は 1 か ら 行 番号 に 0 は 使え な い . 他 機 種 で は 行 番号 0 を 許 
す も の も 多く , 「 行 番号 0 は いく つ で も 書け る 」 と いう 機種 も ある . そう 
いう 機種 に 慣れ た 利用 者 は 頭 の 切換 え が 必 要 で ある . 

長い 識別 名 変数 名 の 長 さき 制限 は な く ( 実 際 に は 文 の 長き さ が 255 字 ま 
で だ か ら , むやみ に 長い も の は 書け な い が ), 最後 の 字 ま で 識別 し て くれ 
る . ファ イル 名 も 「15 字 まで 」 к, 他 機 種 よ りか な り 長 い . 

ラベ ル を 使え る GOTO 文 な どの 行先 の 指定 に ラベ ル (文字 列 ) を 
使用 で きる . N。。-BASIC で も ラベ ル が 使え る けれ ども 書き 方 が 異な り , 
本 機 の は カナ 文字 を 使え を る し , また 形 が 文字 列 型 デ ー タ ー と 共通 な の で 

GOTO A$ 
と か 
GOSUB A$(1) 
な ど と いう 書き 方 が で き て , は る か に 強力 で ある . 


Ё 


TRJ 他 機 種 の BASIC と の 主 な 相違 点 
2 進 定数 を 書け る 2 進 法 表現 の 定数 を &B と いう 形 で 書け る . 
( 例 ) &B10110011 

プロ グラ ム を 修正 し て も 値 が 消え な い 他 機 種 で は, デバ ッ グ の た 
め 実 行 を 中 断 し , プロ グラ ム を 修正 する と , 変数 の 値 は すべ て 初期 化 さ 
れ て し まい , 計算 を 最初 か ら や りな お さ な け れ ば な ら な い の が 普通 で あ 
る が , 本 機 で は プロ グラ ム を 少し ぐら い 修 正 し て も デー ター は 消え な い . 
倍 精度 関数 計算 可能 引数 が 倍 精 度 実数 型 な ら ば 組込み 関数 の 値 は 
倍 精度 で 計算 きれ る . これ は , 当然 と いえ ば 当然 だ が , 倍 精度 で 計算 さ 
れ な い 機 種 も ある の て 念 の た め . 

標準 TAB 設定 間隔 が 10 桁 PRINT 文 に お いて 出力 項目 を コン 
マ で 区 切る と , 前 の 項目 を 出力 後 , 次 の TAB 位置 まで スキ ッ プ し て か ら 
次 の 項目 が 出力 され る . この TAB 位置 が , 他 機 で は た いて い 14 字 か 15 字 
間隔 で 設定 きれ て いる の に 対し , 本 機 で は 10 桁 間隔 で 設定 され て いる . 
これ に は 良い 点 と 悪い 点 が ある . 良い 点 は 1 行 に た くさ ん の 項目 を 表示 
で きる こと で , 特 に WIDTH 40 で 使っ て いる 場合 , 他 機種 だ と た 
いて い 1 行 に 2 項目 し か 表示 で き な い の に 対し , 本 機 だ と 4 項目 表示 で 
きる 。 と ころ が , 1 項目 が 常に 10 桁 以下 で 表示 で きる と は 限ら な い . そ 
の た め ,「 コ ンマ に よる 区 切り ] が 「 上 下 を きれ い に そ ろ え る 」 と いう 役 
に 立た な い 。 


( 例 ) 


10 LPRINT "М","1/М", "SQR (N) 
29 FOR N=1 TO 19 
39 LPRINT М, 143, SQR (N) 


40 МЕХТ 
N 1/м SQR (N?) 
1 1 1 
2 .5 1.4142136 
3 ・33333333 1. 7320508 
4 .25 2 
5 .2 2. 236068 
る ・ 16666667 2.4494897 
7 . 14285714 2. 6457513 
8 .125 2.8284271 
ヶ ・11111111 3 
19 .1 3. 1622777 
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これ は と 1/W と УМ の 数 表 を 印刷 する プロ グラ ム で ある . 他 機 種 で 
は , これ で きれ い に 上 下 が そ ろう が , 本 機 だ と 出力 例 の よう に な る . き 
れい に 出力 する に は AB 指定 (また は USTNG) を 用 いる 必要 が あ 
A 
IF 文 の THEN を 省略 で きる 本 機 で は , TP 文 を 

IF 条件 式 THEN xX 
の 形 で 使う と き , ТНЕНЖЖЫ 20, すぐ に 文 を 書け る . 

IF 条件 式 文 
( 例 ) IF N<5 PRINT X 
これ は 確か に 簡単 で 良い けれ ども , 標準 規格 違反 で , 大 部 分 の 他 機 種 に 
は 通用 し な いか ら , こう いう 習慣 は 付け な い 方 が 良い と 思う (PC-1500 
の よう に , THEN を 書く と エラ ー に な る 機種 も ある が ). 
ON 文 は 機能 豊富 本 機 の ON 文 は , 

ON ~ абтб --,--,- 

ON ~ GOSUB ~,~, 
と いう 普通 の 書き 方 の ほか に 

ON ~ RETURN --,--,-- 

ON ~ RESTORE --,--, - 

ON ~ RESUME --,--,-- 
と いう 書き 方 が で きる . 


RETURN (#5 指定 され た 行 番号 に 帰る 
RESTŌRE 行 番号 指定 し た 所 か ら READ 
RESUME 行 番号 指定 され た 行 番号 に 帰る 


は , 他 の 機種 に も 見 られ る が , いずれ も BASIC の 拡張 機能 で ある . 

タイ マー が 2 系 統 実 時 間 時 計 TIME$ と 別に スト ッ プ ・ ウ ォ ッ チ 
TIME が ある の で , た い へ ん 便利 に な っ た . 実 時 間 時 計 は , テレ ビ の 制 
御 等 に も 使わ れる が ,。 カセ ッ ト ・ テ ー プ に プロ グラ ム や デー ター を 記録 
する と き , シス テム が 日 付 と 時 刻 を 付記 し て くれ る の で , そう いう 情報 
を 活用 する た め に も , 常に 正確 な 時 刻 を 入れ て お く と よい . 


付録 K 省略 記法 一 覧 表 


本 機 で は コマ ンド や 命令 や 関数 を 省略 形 で 入力 する こと が で きる 。. 
( 例 ) PRINT А,В,С の か わり に Р.А,В,С で よい . 
ほとん ど 全 部 の コマ ンド 命令 , 関数 に 省略 形 が 用 意 き れ て いる が , た と 
えば ABS を AB . と 書く よう な , あま り 利 用 価値 の な いも の も 多い の 
T, ここ で は 役に立ち そう な も の だ け を 抄録 し た . 


正式 の 綴り 省略 記法 


AUTO MTID$ 
CIRCLE NEXT 
COLOR PAUSE 
CONSOLE PLAY 
DATA PRINT 
GOTO REPEAT 
HCOPY RETURN 
HEX$ RIGHT$ 
INPUT RUN 
LABEL | SAVE 
LEFT$ STOP 
LFILES UNTIL 
LIST WHILE 
LLIST WEND 
LOAD WIDTH 
LPRINT WINDOW 
MERGE WRITE 


あ 


一 様 乱数 
色 の 指定 
色 番 号 


шта 
エラ ー 処 理 
エラ ー・ メ 
円 140 
演算 子 
円 周 率 
大 きき の 順 
オー ト ・ リ 
折れ 線 


жуса 
画面 消去 
画面 の 前 後 
画面 番号 の 
関 数 
間接 実行 形 


134 
ー ド 表 
217 


S ie 


218 


184 


34 
37 


に 並べ る 81 
ピート 121,212 
138 


ー プ へ の 記録 と 再生 


テ 
テ 
9 
・ テ ー プ へ の 記録 26 
テ 
12 


50, 100 
34 

13,131 
関係 の 指定 
選択 147 
40 
< 29 


148 


5| 
記憶 装置 3 
キー ボー ド 10 
逆 三 角 関 数 41 
逆 正 接 36 
行 あ け 22 
行 番号 14, 29 
行 番 号 の 自動 生成 
жон 52,124 
グラ フィ ッ ク RAM 
クリ ッ ク 音 212 
組込み 関数 36,49 
計算 の 速 さ 2 
交換 法 81 
合 計 77 
誤字 訂正 18 
コン トロ ー ル ・ キ ー 

さ 行 
再 開 47 
желін, 最小 値 78 
削 除 21 
座標 系 132 
角 137 
式 34 
指数 関数 36 
指数 部 31, 44 
指数 乱数 232 
ZAT ゃ デー ジ 
自然 対数 36, 37 
実数 型 49, 51 


時 分 秒 の 計算 87 
16 進 法 112 
終 T 47 


16 


228 


22 


248 


10 進 一 2 進 変換 98 
出 カ 42, 75, 102 


ジョ イス ティ ッ ク 
ІН. £ 22 
条件 式 59 
на 26 
Жж 54 
小数 部 37 
常用 対数 37 


省略 記法 52,246 
スキ ッ プ 23。 124 


スー パー イン ポーズ 
制御 文 55 
正規 乱数 232 
E 弦 36 
整 з 
整数 化 36 
整数 型 48 
整数 部 37 
E 接 36 
正 多角 形 139 
絶対 値 36 
セー プ 26 
双曲線 関数 41 
Я А 20,23 
添 字 72 
属性 文字 50,100 
ソー ト 8l 

だ t 
代 入 10 
代入 文 32 


グイ リグ 142 
多項式 の 計算 39 
多重 の ルレ ループ 70 


中 間 色 143 
= Ж 46 
中 断 47 


212 


219 


直接 実行 形式 28 
直 線 136 


ЖШ 47 

ディ スプ レイ 装置 4 
デー ター の 型 48 
デバ ッ グ 181 

テレ ビ の 制御 219 
電源 投入 т 

点 の 消去 141 

点 の 表示 141 

а Ж 128 


等 5 59 
トレ ー ス 192 


な п 


日 数 計算 88 
А 7) 30, 74, 102 


ぬり つぶ ぷす 142 

は {т 
倍 精度 実数 型 49,51 
バイ ト 3,48 
配 列 т 
バッ ク 23 
ハー ドコ ピー 150 
パレ ッ ト 番 号 135 
反転 表示 128 
Б 14 66,82,84 


比 &@ 101 
ビ ピット 3 


ファ イル 名 の 付け 方 26 


ファ ンク ショ ン ・ キ ー 25, 216 


複数 画面 144 


プリ ンタ ー 5,45 
デ ロ グ ラム 29 
プロ グラ ム の 清書 17 


引 


分 割 22 
分 & 58 
平方 根 36 
変数 名 33 
星 形 139 
ЖЖ 1 
ま 行 


ЯР “А-В 


マル チャ ペー ジ 144 
見 出し の 付け 方 43 
із 令 28 
メモ リー 3 
文字 表示 領域 の 指定 
文字 列 型 99 
文字 列 一 数 値 の 変換 
モニ ター 4 
や 行 
ユー ザー 領域 3 
曜 日 90 
Жж Z 36 
予約 語 33 
予約 タイ マー 220 
ら 行 
ジジ アシ 37 
ラベ ル 56, 57 
立方 根 39 
リナ ジジ ペパー 17 
連 結 22 
ロー ド 26 
論理 式 94 
わ 行 


割り 込み 214 


149 


111 


53 


ж т 


ASCII コー ド 
APSS 226 
BASIC の 起動 8 
CPU 2。 3 
CZ-800C 1 
CZ-800D 4 
CZ-800P 5 
CZ-8CB01 8 
KB 3 

LSI 3 

MB 3 


ROM 3 
SHARP HuBASIC 
Z-80A 2 


110, 193 


27 


文法 用 語 索 引 
! 50 СНАІМ 234 
# 50, 122 СНАНАСТЕН% 240 
$ 100 CHR$ 110 
% 50 CINT 240 
&H 113 CIRCLE 140 
2 46 CLEAR 234 
< 59 CLICK OFE 212 
- 59 CLICK ON 212 
> 59 CLOSE 126 
у 34 CLR 234 
л 35 CLS 13, 131 
А смт 227 
COLOR 13, 134 
ABS 36 CONSOLE 131, 149 
AND 59 CONT 15, 47 
APSS 226 сӧз 36 
АЗС 110 CREV 128 
ASK 222 CRT 223 
ATN 36 CSIZE 128 
AUTO 16 CSNG 240 
CSRLIN 240 
B 
CSTOP 226 
ВЕЕР 234 CURSOR 234 
BIN$ 199 CVD 205 
вббт 234 CVI 205 
СУЗ 205, 210 
С 
D 
С, 15 
CALL 234 р 51 
CANVAS 147 D 21 
CAS 209 DATA 116 
CAS: 26 DATE$ 114 
CDBL 240 DAY$ 114 
CFLASH 128 DEF 40 
CGEN 197 DEFCHR$ 197, 235 


CGPAT 198 DEFDBL 50 


Ж 引 


DEFINT 50 
DEFKEY 235 
DEFSNG 50 
DEFSTR 100 
DEFUSR 235 
DELETE 21 
DEVT$ 209 
DEVICE 199 
DEVO$ 209 
DIM 73, 100 


BDTI- 211 

E 
E 51 
EDIT 19 
ELSE 62 
END 47 
ЕСЕ 240 
ERL 217 
ERR 217 
ERROR 235 
EXP 36 

F 
FAC ЗТ 
FAST 226 
FILES 235 
FIX 37 
FÖR 66, 67, 70 
FRAC 37 
FRE 240 

G 


GET@ 151 
GOSUB 86,92 
GOTO 56, 92 
GRAPH 130 


251 


НЕХ$ 113 
НЕХСНН% 203 


І 


E; 30 

ІЕ 55, 58,62,101 
ІМІТ 130, 198, 229 
TNKEY$ 120 
ІМР 240 

INPUT 30 
INPUT$ 118, 207 
INPUT # 126 
INSTR 107 

INT 36 


K 


КАМЈІ$ 198, 240 
КЕҮ 236 

KEY LIST 236 
KEY OFF 215 
KEY Ом 215 
KILL 236 
KLIST 236 


LAYER 148 
LEFT$ 106 


LET 32 

LFILES 236 
LINE 136, 137, 138 
LINE INPUT 121 
LINPUT 236 


GIST 17 
LLIST 17 
LN 37 


LOAD? 26, 236 
LOADM 236 
ҺОСАТЕ 128 


252 


бс 36, 37 
LPOS 240 
LPRINT 45 


M 
MAXFILES 204 
MEM 209 
МЕМ: 229 


MEIM$ 237, 241 
МЕНСЕ 237 


MID$ 106 
MIRROR$ 201 
MKD$ 205 


MKI$ 205 
MKS$ 205 


MOD 34 
MON 237 

N 
NEW 14 
NEW ŌN 237 
NEXT 66 
кот 59 

о 
OCT$ 200 
ON 92 


ON ERROR GOTO 
ON KEY GOSUB 
ОРЕМ 126 
ОРТІОМ SCREEN 
OR 59 


бот 238 
Р 

P 42 

РАІ 37 


PAINT 142 
PALET 135 
PATTERN 197 


PAUSE 47, 64 


PEEK 241 
РЕЕК@ 241 
PLAY 167 
POINT 241 
РОКЕ 238 
рбкее 238 
POLY 139 
POS 241 


PRESET 141 
PRINT 42, 43 
PRINT % 126 
PRINT USING 122 
PRW 198 

PSET 141 


PUT@ 151 
R 
R. 15 
RAD 37 
RANDOMT SE 233 
READ 116 
REM 46, 53 
REN. 17 


RENUM 17 
REPEAT 84 
REPEAT OFF 212 
REPEAT ON 212 
RESTORE 116 
RETURN 86 


REW 226 
RIGHT$ 106 
RND 230 
RUN 15 

S 
SAVE 26 


SAVEM 239 
SCREEN 130, 145 
SCRN$ 241 


引 


ЕН 引 


SCROLL 223 
SEARCH 213 
SGN 36 

SIN 36 
SOUND 176 
SPACE$ 241 


SPC 124 
SQR 36 
STEP 66 
STICK 212 
STOP 47 
втһ% 111 


втніс 212 
STRTNG$ 125 
STRPTR 241 


SUM 37 
SWAP 80 
Т 


ТАВ 24, 124, 244 
TAN 36 

THEN 62 
TIME 114 
ТІМЕ$ 114 
тб 66 

TVPW 223 


USR 241 
V 
VAL 111 


VARPTR 242 
VERIFY 239 


WAIT 239 
WEND 82 


WHILE 82 
WINDOW 131,133 
WIDTH 13, 132 
WRITE # 239 


ファ ンク ショ ン ・ キ ー 等 


11 

15 

10 
13 
22 
[CTRL]+ 
CTRL|+ 
[CTRL]+ 
CTRL|+ 
[CTRL]+ 
CTRL|+ 
CTRL|+ 
CTRL|+ 
[CTRL|+ 
CTRL|+ 
CTRL|+ 
CTRL|+ 
EJECT) 8 
9,16,25 
25 

25 
17,25 
15,25 
GRAPH| 1 
HTAB| 24 


INS/DEL 20, 21 


20, 23 
23 
15 
22 
23 
22 
22 
22 
24 
22 
24 
22 
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東京 に 生ま れる 
早稲 田中 学 早 大 高等 学院 を 経て 
早稲 田 大 学 第 一 理工 学部 数 学科 卒 。 科学 技術 庁 
航空 技術 研究 所 研究 員 。 初 年 度 は 東大 に 出向 し 
て 真空 管 式 計算 機 TAC の 開発 に 従事 。 以 後 , 
数 値 計算 法 。 計算 機 科 学 (図形 処理 , 数 式 処理 
文献 検索 等 )、 ロケ ッ ト の 軌道 計算 , 自 動 計 測 処 
理 シ ステ ム , 構造 解析 等 の 研究 を 行なう 。 
1965 年 より 計算 第 1 研究 室長 と し て 計算 セン タ 
運営 に あたる 。 
京都 産業 大 学 理学 部 計算 機 科 学科 助教 授 (72% 
教授 )。 数 値 解析 学 お よび シス テム 工学 を 担当 
日 本 大 学 理工 学部 数 学科 教授 
数 値 解析 お よび 計算 機械 論 を 担当 


主要 著書 

マト リク ス の 数 値 計算 微分 方 程 式 の 数 値 計算 有限 要 
素 法 へ の ガイ ド 電子 計算 機 概論 マイ コン に よる 有限 
要素 解析 詳解 演習 数 値 計算 数 値 計算 入門 
FORTRAN に よる 有限 要素 法 入門 演習 FORTRAN と そ 


の 応用 


有限 要素 法 概論 数 値 解析 と シミ ュ レ ーション 


共役 勾配 法 基本 BASIC と その 応用 
各種 パソ コン 用 拡張 BASIC と その 応用 


パソ コン ライ ブラ リ = 12 
パソ コン テレ ビ X1 BASIC 
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本 害 の 内 容 を 無断 で 複写 複製 する こと は , 著作 者 お よび 出 
版 社 の 権利 を 侵害 する こと が あり ます の で , その 場合 に は 
あら か じ め 小 社 あて 許諾 を お 求め 下さ い . 


3341-80621-2819 


基本 BASIC と を の 応 用 


戸川 隼人 著 
A5・1700 円 


マイ コン な ど 計 算 機 に 初め て 手 を 触れ よう と する 人 々 の た め に , 計算 機 の 基本 
的 知識 と 初心 者 の た め の 言 語 で ある BASIC を や さ し く し か も 体系 的 に 解説 . 


? ク PBASIC 詳 説 


木下 тж 
B5・3300 円 


マイ クロ ソフ ト 系 BASIC の ほぼ 完璧 な 文法 書 . 初心 者 に は 独習 用 入門 書 と な 
り , 熟練 者 に は 細か い 文 法規 則 を 調べ る た め の レ ファ レン スマ ニュ アル と な る . 
ーー サイ エン ス 社 


РС-6001 BASIC 


戸川 隼人 著 
A5・1600 円 


PC-6001 を 利用 する 人 が , この 機種 独特 の 機能 を 十分 活用 で きる よう に , 操作 
法 の 初歩 か ら は じ め 、 重要 な 命令 を 例 を あげ て わか りや すく 解説 する . 


Level 3 ノ Markr BASIC 


戸川 隼人 著 
А5 • 170005 


Level3 お よび 同 Mark II の 利用 者 の た め に , この 機種 独特 の 機能 を 十分 活か せ 
549. ページ 単 位 の 見 や すい 構成 で わか り や すく 解説 する . 
ーーーーーーーーーーーーー サ イエ ンス 社 


FORTRAN 77 


大 駒 誠 一 著 
A5・1380 円 


新しく 標準 化 さ れ た FORTRAN77 の 特色 を 平 學 に わか りや すく 解説 . 初心 者 
が 自然 に プロ グラ ム の 本 質 と 技術 を 習得 で きる よう 工夫 され て いる . 


PASCAL プロ ダグ ラミ ンダ 


ГЕТ) 


ЖЕЖ ЕНІНЕН 
А5: 160005 


教育 効果 や 実行 効率 の 点 か ら 近 年 注目 され て いる 其 学 を 、 豊富 な 例題 と みや す 
い プ ログ ラム て 平易 に 解説 し た 書 . 


サイ エン ス 社 


ГОЕКІТІКАМ 


原田 賢一 著 
A5・980 円 


基本 的 な 例題 を 中 心 に 流れ 図 と プロ グラ ム を 2 色刷 り の 見 や すい 構成 て 示し , 
各 章 末 に 文法 ノー ト と 演習 問題 を 配 し た 入門 書 の 決定 版 . 


演習 FORTRAN ょ その 々 応用 


戸川 隼人 著 
A5・1600 円 


頁 単位 ・2 色 刷り の 見 や すい 構成 で 解説 する FORTRAN 演習 書 の 決定 版 . 
簡単 に 覚え られ て すぐ に 役立つ 文法 か ら , 実用 的 , 技巧 的 な 方 法 の 例 ま て 解説 


サイ エン ス 社 


FORTRAN NV/77 に よる 
5 = о м — 
数 値 計算 プロ グラ ム 
マコ ー ミ ク , サル バド リ 共 著 ノ 清水 留 三 郎 訳 
A5・2000 円 
従来 の FORTRAN М に 新た に 77 に よる プロ グラ ム の 変更 点 を 見 や すく 並 記す 
る と と も に , WV と 77 の 規格 の 相違 を 増補 解説. 


PL/ I -FORTRAN 77 に よる 
基本 算法 と プロ グラ ム 
清水 留 三郎 著 
A5・2000 円 
実際 的 な 基本 算法 と プロ グラ ム 例 を 豊富 に 収録 し PL/I と 77 の 特徴 が ひと 目 


で わか る よう に 工夫 され た 好 個 の 書 . 
サイ エン ス 社 


aiy 


